Results Study 2: Self-Improvement and Self-Acceptance as Mechanisms of Positive Personality Change
Author
[blinded]
1 Load packages
Show the code
library(renv)library(tidyverse)library(broom)library(labelled)library(psych)library(GPArotation)#library(devtools)#install_github("cran/multicon") # not on CRAN atmlibrary(multicon)library(correlation)library(careless)library(corrplot)library(lavaan)library(semTools)library(semPlot)library(knitr)library(ggdist)library(ggforce)library(cowplot)library(nortest)library(lmerTest)
Testing for measurement invariance of the latent traits across time. Only doing this for the two (original) intervention groups for now, not for the waitlist control group, because they had different intervention schedules and our main focus lies on testing changes in the intervention groups.
4.1.1 Life satisfaction
Satisfaction with life scale (only the first four items - last one taps into a somewhat different construct)
Good model fit across all model specifications (except for RMSEA). Chi^2 tests indicate that strong measurement invariance is given (very close to .05).
4.2 Big Five: from T1 to T2
Testing for measurement invariance of the latent BFI-2 traits across time, from T1 to T2.
Very good model fit across all stages of measurement invariance. Chi^2 tests indicate that the test for weak measurement invariance is (barely) violated. Tests for strong and strict measurement invariance hold up, though. Probably ok to proceed, anyways.
Model fit not satisfactory across all stages of measurement invariance. Chi^2 tests indicate that the test for weak measurement invariance is just about violated at (very close to .05, though). Otherwise, strong measurement invariance is given. Probably ok to proceed!
4.3 Big Five: from T2 to T3
Testing for measurement invariance of the latent BFI-2 traits across time, from T2 to T3.
Pre:
Here is a list of 15 personality traits. You might be high or low on any of these traits. Regardless of how high or low you are on these traits, we want to know how much you [want to] change. Please rate how much you would like to change your level of each of these traits, where 1 = I do not want to change and 5 = I want to change a lot.
Post:
Here is a list of 15 personality traits. During the study, you may have tried to change in some of these traits. We want to know how you think you changed in each trait. Please rate how much you changed your level of each of these traits during this study, where 1 = I am completely the same and 5 = I have changed a lot.
Self Acceptance
Pre:
Here is a list of 15 personality traits. You might be high or low on any of these traits. Regardless of how high or low you are on these traits, we want to know how much you accept yourself. Please rate how much you accept your level of each of these traits, where 1 = I completely accept myself and 5 = I want to accept myself more.
Post:
Here is a list of 15 personality traits. During the study, you may have tried to accept your level on some of these traits more. We want to know how much you think you accept yourself more because of this study. Please rate how much you accept your level of each of these traits more during this study, where 1 = I accept myself the same and 5 = I accept this about myself much more.
6.1 H1: Well-being - similarity correlations (H4 in paper)
All four psychological well-being indicators will be positively correlated with a greater similarity between current- and ideal self-ratings of personality.
To examine this at the level of overall profiles, we will compute the correlations between the psychological well-being indicators and the Fisher z transformed correlations between the facet- and item-level real-ideal self-profiles. To examine this at the level of individual traits, we will compute the correlation between psychological well-being indicators and the squared difference between current- and ideal-self rating for each Big Five trait and facet.
corrplot(cormat_profile, type ="lower", order ="original", tl.col ="black", tl.srt =10,addCoef.col ='black', number.cex =0.7, diag =FALSE) # also add numbers
Positive correlations of well-being indicators with profile similarity between current self and ideal self personality. Especially high correlation with self-esteem. High congruence of item-level and facet-level profile similarity.
corrplot(cormat_sqtraits, type ="lower", order ="original", tl.col ="black", tl.srt =10,addCoef.col ='black', number.cex =0.7, diag =FALSE) # also add numbers
Big Five facets
corrplot(cormat_sqfacets, type ="lower", order ="original", tl.col ="black", tl.srt =10,addCoef.col ='black', number.cex =0.6, diag =FALSE) # also add numbers
Here we see negative correlations of well-being indicators with squared trait- and facet-level mean-score differences between current self and ideal self personality. Especially pronounced negative correlations for neuroticism, extraversion, and conscientiousness (in that order). On the facet-level, we see that depression is the facet with the highest correlation of its squared difference with well-being, followed by energy. Within conscientiousness, productiveness has the strongest correlation.
6.2 H2: Well-being - latent change (H5 in paper)
Both intervention groups (but not the control group between T1 and T2) will increase in all four psychological well-being indicators.
We will test the mean-level difference between baseline and follow up using latent change models. Our main focus will be changes from T1 to T2 and we will check in a second set of models whether any changes persist from T2 to T3.
6.2.1 Intervention effects (changes from T1 to T2)
6.2.1.1 Life satisfaction
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_swls_hyp2 <-'swls_t1 =~ 1*sw06_01_t1 + lamb2*sw06_02_t1 + lamb3*sw06_03_t1 + lamb4*sw06_04_t1 # This specifies the measurement model for swls_t1 swls_t2 =~ 1*sw06_01_t2 + lamb2*sw06_02_t2 + lamb3*sw06_03_t2 + lamb4*sw06_04_t2 # This specifies the measurement model for swls_t2 with the equality constrained factor loadingsswls_t2 ~ 1*swls_t1 # This parameter regresses swls_t2 perfectly on swls_t1d_swls_1 =~ 1*swls_t2 # This defines the latent change score factor as measured perfectly by scores on swls_t2swls_t2 ~ 0*1 # This line constrains the intercept of swls_t2 to 0swls_t2 ~~ 0*swls_t2 # This fixes the variance of swls_t2 to 0d_swls_1 ~ 1 # This estimates the intercept of the change score swls_t1 ~ 1 # This estimates the intercept of swls_t1 d_swls_1 ~~ d_swls_1 # This estimates the variance of the change scores swls_t1 ~~ swls_t1 # This estimates the variance of the swls_t1 d_swls_1 ~ swls_t1 # This estimates the self-feedback parametersw06_01_t1 ~~ sw06_01_t2 # This allows residual covariance on indicator X1 across T1 and T2sw06_02_t1 ~~ sw06_02_t2 # This allows residual covariance on indicator X2 across T1 and T2sw06_03_t1 ~~ sw06_03_t2 # This allows residual covariance on indicator X3 across T1 and T2sw06_04_t1 ~~ sw06_04_t2 # This allows residual covariance on indicator X4 across T1 and T2sw06_01_t1 ~~ res1*sw06_01_t1 # This allows residual variance on indicator X1 at T1 sw06_02_t1 ~~ res2*sw06_02_t1 # This allows residual variance on indicator X2 at T1sw06_03_t1 ~~ res3*sw06_03_t1 # This allows residual variance on indicator X3 at T1sw06_04_t1 ~~ res4*sw06_04_t1 # This allows residual variance on indicator X4 at T1sw06_01_t2 ~~ res1*sw06_01_t2 # This allows residual variance on indicator X1 at T2 sw06_02_t2 ~~ res2*sw06_02_t2 # This allows residual variance on indicator X2 at T2 sw06_03_t2 ~~ res3*sw06_03_t2 # This allows residual variance on indicator X3 at T2sw06_04_t2 ~~ res4*sw06_04_t2 # This allows residual variance on indicator X4 at T2sw06_01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1sw06_02_t1 ~ m2*1 # This estimates the intercept of X2 at T1sw06_03_t1 ~ m3*1 # This estimates the intercept of X3 at T1sw06_04_t1 ~ m4*1 # This estimates the intercept of X4 at T1sw06_01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2sw06_02_t2 ~ m2*1 # This estimates the intercept of X2 at T2sw06_03_t2 ~ m3*1 # This estimates the intercept of X3 at T2sw06_04_t2 ~ m4*1 # This estimates the intercept of X4 at T2'fit_mi_lcs_swls_hyp2 <-lavaan(mi_lcs_swls_hyp2, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_swls_hyp2, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Significantly higher life satisfaction at the post test, b = 0.818, p = 0. Those with initially higher levels of life satisfaction (at T1) change to a lesser degree.
What happens in the waitlist control group during this time?
Life satisfaction changes in the control group not significant at preregistered alpha-level (.001), b = 0.51, p = 0.003. Still a positive effect, but weaker effect size than in intervention group.
6.2.1.2 Meaning in life
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_meaning_hyp2 <-'meaning_t1 =~ 1*meaning_par1_t1 + lamb2*meaning_par2_t1 + lamb3*meaning_par3_t1 # This specifies the measurement model for meaning_t1 meaning_t2 =~ 1*meaning_par1_t2 + lamb2*meaning_par2_t2 + lamb3*meaning_par3_t2 # This specifies the measurement model for meaning_t2 with the equality constrained factor loadingsmeaning_t2 ~ 1*meaning_t1 # This parameter regresses meaning_t2 perfectly on meaning_t1d_meaning_1 =~ 1*meaning_t2 # This defines the latent change score factor as measured perfectly by scores on meaning_t2meaning_t2 ~ 0*1 # This line constrains the intercept of meaning_t2 to 0meaning_t2 ~~ 0*meaning_t2 # This fixes the variance of meaning_t2 to 0d_meaning_1 ~ 1 # This estimates the intercept of the change score meaning_t1 ~ 1 # This estimates the intercept of meaning_t1 d_meaning_1 ~~ d_meaning_1 # This estimates the variance of the change scores meaning_t1 ~~ meaning_t1 # This estimates the variance of the meaning_t1 d_meaning_1 ~ meaning_t1 # This estimates the self-feedback parametermeaning_par1_t1 ~~ meaning_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2meaning_par2_t1 ~~ meaning_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2meaning_par3_t1 ~~ meaning_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2meaning_par1_t1 ~~ res1*meaning_par1_t1 # This allows residual variance on indicator X1 at T1 meaning_par2_t1 ~~ res2*meaning_par2_t1 # This allows residual variance on indicator X2 at T1meaning_par3_t1 ~~ res3*meaning_par3_t1 # This allows residual variance on indicator X3 at T1meaning_par1_t2 ~~ res1*meaning_par1_t2 # This allows residual variance on indicator X1 at T2 meaning_par2_t2 ~~ res2*meaning_par2_t2 # This allows residual variance on indicator X2 at T2 meaning_par3_t2 ~~ res3*meaning_par3_t2 # This allows residual variance on indicator X3 at T2meaning_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1meaning_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1meaning_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1meaning_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2meaning_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2meaning_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_meaning_hyp2 <-lavaan(mi_lcs_meaning_hyp2, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_meaning_hyp2, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Meaning increases significantly in the control group, b = 0.972, p = 0, although with a somewhat weaker effect size than in the intervention group.
6.2.1.3 Self-esteem
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_selfes_hyp2 <-'selfes_t1 =~ 1*selfes_par1_t1 + lamb2*selfes_par2_t1 + lamb3*selfes_par3_t1 # This specifies the measurement model for selfes_t1 selfes_t2 =~ 1*selfes_par1_t2 + lamb2*selfes_par2_t2 + lamb3*selfes_par3_t2 # This specifies the measurement model for selfes_t2 with the equality constrained factor loadingsselfes_t2 ~ 1*selfes_t1 # This parameter regresses selfes_t2 perfectly on selfes_t1d_selfes_1 =~ 1*selfes_t2 # This defines the latent change score factor as measured perfectly by scores on selfes_t2selfes_t2 ~ 0*1 # This line constrains the intercept of selfes_t2 to 0selfes_t2 ~~ 0*selfes_t2 # This fixes the variance of selfes_t2 to 0d_selfes_1 ~ 1 # This estimates the intercept of the change score selfes_t1 ~ 1 # This estimates the intercept of selfes_t1 d_selfes_1 ~~ d_selfes_1 # This estimates the variance of the change scores selfes_t1 ~~ selfes_t1 # This estimates the variance of the selfes_t1 d_selfes_1 ~ selfes_t1 # This estimates the self-feedback parameterselfes_par1_t1 ~~ selfes_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2selfes_par2_t1 ~~ selfes_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2selfes_par3_t1 ~~ selfes_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2selfes_par1_t1 ~~ res1*selfes_par1_t1 # This allows residual variance on indicator X1 at T1 selfes_par2_t1 ~~ res2*selfes_par2_t1 # This allows residual variance on indicator X2 at T1selfes_par3_t1 ~~ res3*selfes_par3_t1 # This allows residual variance on indicator X3 at T1selfes_par1_t2 ~~ res1*selfes_par1_t2 # This allows residual variance on indicator X1 at T2 selfes_par2_t2 ~~ res2*selfes_par2_t2 # This allows residual variance on indicator X2 at T2 selfes_par3_t2 ~~ res3*selfes_par3_t2 # This allows residual variance on indicator X3 at T2selfes_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1selfes_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1selfes_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1selfes_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2selfes_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2selfes_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_selfes_hyp2 <-lavaan(mi_lcs_selfes_hyp2, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_selfes_hyp2, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Self-esteem changes in the control group not significant at preregistered alpha-level (.001), b = 0.429, p = 0.002. Still a positive effect, but weaker effect size than in intervention group.
6.2.1.4 Self concept clarity
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_concept_hyp2 <-'concept_t1 =~ 1*concept_par1_t1 + lamb2*concept_par2_t1 + lamb3*concept_par3_t1 # This specifies the measurement model for concept_t1 concept_t2 =~ 1*concept_par1_t2 + lamb2*concept_par2_t2 + lamb3*concept_par3_t2 # This specifies the measurement model for concept_t2 with the equality constrained factor loadingsconcept_t2 ~ 1*concept_t1 # This parameter regresses concept_t2 perfectly on concept_t1d_concept_1 =~ 1*concept_t2 # This defines the latent change score factor as measured perfectly by scores on concept_t2concept_t2 ~ 0*1 # This line constrains the intercept of concept_t2 to 0concept_t2 ~~ 0*concept_t2 # This fixes the variance of concept_t2 to 0d_concept_1 ~ 1 # This estimates the intercept of the change score concept_t1 ~ 1 # This estimates the intercept of concept_t1 d_concept_1 ~~ d_concept_1 # This estimates the variance of the change scores concept_t1 ~~ concept_t1 # This estimates the variance of the concept_t1 d_concept_1 ~ concept_t1 # This estimates the self-feedback parameterconcept_par1_t1 ~~ concept_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2concept_par2_t1 ~~ concept_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2concept_par3_t1 ~~ concept_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2concept_par1_t1 ~~ res1*concept_par1_t1 # This allows residual variance on indicator X1 at T1 concept_par2_t1 ~~ res2*concept_par2_t1 # This allows residual variance on indicator X2 at T1concept_par3_t1 ~~ res3*concept_par3_t1 # This allows residual variance on indicator X3 at T1concept_par1_t2 ~~ res1*concept_par1_t2 # This allows residual variance on indicator X1 at T2 concept_par2_t2 ~~ res2*concept_par2_t2 # This allows residual variance on indicator X2 at T2 concept_par3_t2 ~~ res3*concept_par3_t2 # This allows residual variance on indicator X3 at T2concept_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1concept_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1concept_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1concept_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2concept_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2concept_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_concept_hyp2 <-lavaan(mi_lcs_concept_hyp2, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_concept_hyp2, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Self concept clarity changes in the control group not significant at preregistered alpha-level (.001), b = 0.58, p = 0.002. Still a positive effect, but weaker effect size than in intervention group.
6.2.2 Follow-up effects (changes from T2 to T3)
6.2.2.1 Life satisfaction
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_swls_hyp2_fu <-'swls_t2 =~ 1*sw06_01_t2 + lamb2*sw06_02_t2 + lamb3*sw06_03_t2 + lamb4*sw06_04_t2 # This specifies the measurement model for swls_t2 swls_t3 =~ 1*sw06_01_t3 + lamb2*sw06_02_t3 + lamb3*sw06_03_t3 + lamb4*sw06_04_t3 # This specifies the measurement model for swls_t3 with the equality constrained factor loadingsswls_t3 ~ 1*swls_t2 # This parameter regresses swls_t3 perfectly on swls_t2d_swls_1 =~ 1*swls_t3 # This defines the latent change score factor as measured perfectly by scores on swls_t3swls_t3 ~ 0*1 # This line constrains the intercept of swls_t3 to 0swls_t3 ~~ 0*swls_t3 # This fixes the variance of swls_t3 to 0d_swls_1 ~ 1 # This estimates the intercept of the change score swls_t2 ~ 1 # This estimates the intercept of swls_t2 d_swls_1 ~~ d_swls_1 # This estimates the variance of the change scores swls_t2 ~~ swls_t2 # This estimates the variance of the swls_t2 d_swls_1 ~ swls_t2 # This estimates the self-feedback parametersw06_01_t2 ~~ sw06_01_t3 # This allows residual covariance on indicator X1 across T1 and T2sw06_02_t2 ~~ sw06_02_t3 # This allows residual covariance on indicator X2 across T1 and T2sw06_03_t2 ~~ sw06_03_t3 # This allows residual covariance on indicator X3 across T1 and T2sw06_04_t2 ~~ sw06_04_t3 # This allows residual covariance on indicator X4 across T1 and T2sw06_01_t2 ~~ res1*sw06_01_t2 # This allows residual variance on indicator X1 at T1 sw06_02_t2 ~~ res2*sw06_02_t2 # This allows residual variance on indicator X2 at T1sw06_03_t2 ~~ res3*sw06_03_t2 # This allows residual variance on indicator X3 at T1sw06_04_t2 ~~ res4*sw06_04_t2 # This allows residual variance on indicator X4 at T1sw06_01_t3 ~~ res1*sw06_01_t3 # This allows residual variance on indicator X1 at T2 sw06_02_t3 ~~ res2*sw06_02_t3 # This allows residual variance on indicator X2 at T2 sw06_03_t3 ~~ res3*sw06_03_t3 # This allows residual variance on indicator X3 at T2sw06_04_t3 ~~ res4*sw06_04_t3 # This allows residual variance on indicator X4 at T2sw06_01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T1sw06_02_t2 ~ m2*1 # This estimates the intercept of X2 at T1sw06_03_t2 ~ m3*1 # This estimates the intercept of X3 at T1sw06_04_t2 ~ m4*1 # This estimates the intercept of X4 at T1sw06_01_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T2sw06_02_t3 ~ m2*1 # This estimates the intercept of X2 at T2sw06_03_t3 ~ m3*1 # This estimates the intercept of X3 at T2sw06_04_t3 ~ m4*1 # This estimates the intercept of X4 at T2'fit_mi_lcs_swls_hyp2_fu <-lavaan(mi_lcs_swls_hyp2_fu, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_swls_hyp2_fu, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Life satisfaction further increased from T2 to the T3 follow up, b = 0.516, p = 0.
6.2.2.2 Meaning in life
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_meaning_hyp2_fu <-'meaning_t2 =~ 1*meaning_par1_t2 + lamb2*meaning_par2_t2 + lamb3*meaning_par3_t2 # This specifies the measurement model for meaning_t2 meaning_t3 =~ 1*meaning_par1_t3 + lamb2*meaning_par2_t3 + lamb3*meaning_par3_t3 # This specifies the measurement model for meaning_t3 with the equality constrained factor loadingsmeaning_t3 ~ 1*meaning_t2 # This parameter regresses meaning_t3 perfectly on meaning_t2d_meaning_1 =~ 1*meaning_t3 # This defines the latent change score factor as measured perfectly by scores on meaning_t3meaning_t3 ~ 0*1 # This line constrains the intercept of meaning_t3 to 0meaning_t3 ~~ 0*meaning_t3 # This fixes the variance of meaning_t3 to 0d_meaning_1 ~ 1 # This estimates the intercept of the change score meaning_t2 ~ 1 # This estimates the intercept of meaning_t2 d_meaning_1 ~~ d_meaning_1 # This estimates the variance of the change scores meaning_t2 ~~ meaning_t2 # This estimates the variance of the meaning_t2 d_meaning_1 ~ meaning_t2 # This estimates the self-feedback parametermeaning_par1_t2 ~~ meaning_par1_t3 # This allows residual covariance on indicator X1 across T1 and T2meaning_par2_t2 ~~ meaning_par2_t3 # This allows residual covariance on indicator X2 across T1 and T2meaning_par3_t2 ~~ meaning_par3_t3 # This allows residual covariance on indicator X3 across T1 and T2meaning_par1_t2 ~~ res1*meaning_par1_t2 # This allows residual variance on indicator X1 at T1 meaning_par2_t2 ~~ res2*meaning_par2_t2 # This allows residual variance on indicator X2 at T1meaning_par3_t2 ~~ res3*meaning_par3_t2 # This allows residual variance on indicator X3 at T1meaning_par1_t3 ~~ res1*meaning_par1_t3 # This allows residual variance on indicator X1 at T2 meaning_par2_t3 ~~ res2*meaning_par2_t3 # This allows residual variance on indicator X2 at T2 meaning_par3_t3 ~~ res3*meaning_par3_t3 # This allows residual variance on indicator X3 at T2meaning_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T1meaning_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T1meaning_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T1meaning_par1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T2meaning_par2_t3 ~ m2*1 # This estimates the intercept of X2 at T2meaning_par3_t3 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_meaning_hyp2_fu <-lavaan(mi_lcs_meaning_hyp2_fu, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_meaning_hyp2_fu, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Meaning in life further increased from T2 to the T3 follow up, b = 0.855, p = 0.
6.2.2.3 Self-esteem
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_selfes_hyp2_fu <-'selfes_t2 =~ 1*selfes_par1_t2 + lamb2*selfes_par2_t2 + lamb3*selfes_par3_t2 # This specifies the measurement model for selfes_t2 selfes_t3 =~ 1*selfes_par1_t3 + lamb2*selfes_par2_t3 + lamb3*selfes_par3_t3 # This specifies the measurement model for selfes_t3 with the equality constrained factor loadingsselfes_t3 ~ 1*selfes_t2 # This parameter regresses selfes_t3 perfectly on selfes_t2d_selfes_1 =~ 1*selfes_t3 # This defines the latent change score factor as measured perfectly by scores on selfes_t3selfes_t3 ~ 0*1 # This line constrains the intercept of selfes_t3 to 0selfes_t3 ~~ 0*selfes_t3 # This fixes the variance of selfes_t3 to 0d_selfes_1 ~ 1 # This estimates the intercept of the change score selfes_t2 ~ 1 # This estimates the intercept of selfes_t2 d_selfes_1 ~~ d_selfes_1 # This estimates the variance of the change scores selfes_t2 ~~ selfes_t2 # This estimates the variance of the selfes_t2 d_selfes_1 ~ selfes_t2 # This estimates the self-feedback parameterselfes_par1_t2 ~~ selfes_par1_t3 # This allows residual covariance on indicator X1 across T1 and T2selfes_par2_t2 ~~ selfes_par2_t3 # This allows residual covariance on indicator X2 across T1 and T2selfes_par3_t2 ~~ selfes_par3_t3 # This allows residual covariance on indicator X3 across T1 and T2selfes_par1_t2 ~~ res1*selfes_par1_t2 # This allows residual variance on indicator X1 at T1 selfes_par2_t2 ~~ res2*selfes_par2_t2 # This allows residual variance on indicator X2 at T1selfes_par3_t2 ~~ res3*selfes_par3_t2 # This allows residual variance on indicator X3 at T1selfes_par1_t3 ~~ res1*selfes_par1_t3 # This allows residual variance on indicator X1 at T2 selfes_par2_t3 ~~ res2*selfes_par2_t3 # This allows residual variance on indicator X2 at T2 selfes_par3_t3 ~~ res3*selfes_par3_t3 # This allows residual variance on indicator X3 at T2selfes_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T1selfes_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T1selfes_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T1selfes_par1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T2selfes_par2_t3 ~ m2*1 # This estimates the intercept of X2 at T2selfes_par3_t3 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_selfes_hyp2_fu <-lavaan(mi_lcs_selfes_hyp2_fu, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_selfes_hyp2_fu, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Self-esteem further increased from T2 to the T3 follow up, b = 0.445, p = 0.
6.2.2.4 Self concept clarity
Fit model:
Show the code
# Code snippets adapted from Kievit et al. (2018) -- CC-BY -- https://doi.org/10.1016/j.dcn.2017.11.007# Fit the multiple indicator Univariate Latent Change Score modelmi_lcs_concept_hyp2_fu <-'concept_t2 =~ 1*concept_par1_t2 + lamb2*concept_par2_t2 + lamb3*concept_par3_t2 # This specifies the measurement model for concept_t2 concept_t3 =~ 1*concept_par1_t3 + lamb2*concept_par2_t3 + lamb3*concept_par3_t3 # This specifies the measurement model for concept_t3 with the equality constrained factor loadingsconcept_t3 ~ 1*concept_t2 # This parameter regresses concept_t3 perfectly on concept_t2d_concept_1 =~ 1*concept_t3 # This defines the latent change score factor as measured perfectly by scores on concept_t3concept_t3 ~ 0*1 # This line constrains the intercept of concept_t3 to 0concept_t3 ~~ 0*concept_t3 # This fixes the variance of concept_t3 to 0d_concept_1 ~ 1 # This estimates the intercept of the change score concept_t2 ~ 1 # This estimates the intercept of concept_t2 d_concept_1 ~~ d_concept_1 # This estimates the variance of the change scores concept_t2 ~~ concept_t2 # This estimates the variance of the concept_t2 d_concept_1 ~ concept_t2 # This estimates the self-feedback parameterconcept_par1_t2 ~~ concept_par1_t3 # This allows residual covariance on indicator X1 across T1 and T2concept_par2_t2 ~~ concept_par2_t3 # This allows residual covariance on indicator X2 across T1 and T2concept_par3_t2 ~~ concept_par3_t3 # This allows residual covariance on indicator X3 across T1 and T2concept_par1_t2 ~~ res1*concept_par1_t2 # This allows residual variance on indicator X1 at T1 concept_par2_t2 ~~ res2*concept_par2_t2 # This allows residual variance on indicator X2 at T1concept_par3_t2 ~~ res3*concept_par3_t2 # This allows residual variance on indicator X3 at T1concept_par1_t3 ~~ res1*concept_par1_t3 # This allows residual variance on indicator X1 at T2 concept_par2_t3 ~~ res2*concept_par2_t3 # This allows residual variance on indicator X2 at T2 concept_par3_t3 ~~ res3*concept_par3_t3 # This allows residual variance on indicator X3 at T2concept_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T1concept_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T1concept_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T1concept_par1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T2concept_par2_t3 ~ m2*1 # This estimates the intercept of X2 at T2concept_par3_t3 ~ m3*1 # This estimates the intercept of X3 at T2'fit_mi_lcs_concept_hyp2_fu <-lavaan(mi_lcs_concept_hyp2_fu, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_concept_hyp2_fu, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Self concept clarity further increased from T2 to the T3 follow up, b = 0.555, p = 0.
I also checked whether there are differences if I model the two intervention groups (self-improvement / self-acceptance) separately. Changes are more or less the same across the two groups.
6.3 H3: Distance between ideal- and current-self over time (H1 in paper)
The distance between ideal- and current-self will decrease in both intervention groups (but not in the control group between T1 and T2).
We will use two strategies to test this hypothesis. First, we will compute the Fisher z-transformed profile correlation between current- and ideal-self and test whether it increased across assessments. Second, we will test whether the squared difference between current- and ideal-self rating for each Big Five trait decreased across assessments. We will test mean-level differences in profile correlations and squared differences between baseline and follow up using mixed-effects models. Our main focus will be changes from T1 to T2 and we will check in a second set of models whether any changes persist from T2 to T3.
# effect sizesd_profile_corr_item <- psych::cohen.d(profile_corr_item_z ~ time, data = df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(1,2)))d_profile_corr_item$cohen.d
d_profile_corr_facet <- psych::cohen.d(profile_corr_facet_z ~ time, data = df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(1,2)))d_profile_corr_facet$cohen.d
Significantly higher profile correlations at the second measurement occasion, both for the item-level profile correlation and the facet-level profile correlations.
What happens in the waitlist control group during this time?
# effect sizesd_profile_corr_item_cg <- psych::cohen.d(profile_corr_item_z ~ time, data = df_sbsa2 %>%filter(rando=="Waitlist-Control"& time %in%c(1,2)))d_profile_corr_item_cg$cohen.d
d_profile_corr_facet_cg <- psych::cohen.d(profile_corr_facet_z ~ time, data = df_sbsa2 %>%filter(rando=="Waitlist-Control"& time %in%c(1,2)))d_profile_corr_facet_cg$cohen.d
Slightly higher higher profile correlations at the second measurement occasion also in the controlg group, although this is only significant at .001 for the item-level profile correlation but not for the facet-level profile correlations.
# effect sizesd_profile_corr_item_fu <- psych::cohen.d(profile_corr_item_z ~ time, data = df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(2,3)))d_profile_corr_item_fu$cohen.d
d_profile_corr_facet_fu <- psych::cohen.d(profile_corr_facet_z ~ time, data = df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(2,3)))d_profile_corr_facet_fu$cohen.d
Profile correlations stay stable from the second measurement occasion to the third when evaluated at alpha=.001, both for the item-level profile correlations and the facet-level profile correlations. Slight increase if looking at effect sizes.
6.3.1.3 Summary plot
profile_df_plot <- df_sbsa2 %>%select(pid, time, rando, profile_corr_item_z, profile_corr_facet_z) %>%pivot_longer(-c(pid, time, rando), names_to ="itemfacet", values_to ="corr") %>%filter(!is.na(corr)) %>%mutate(itemfacet2 =fct_recode(itemfacet, "Item-level"="profile_corr_item_z", "Facet-level"="profile_corr_facet_z"),itemfacet2 =fct_reorder(itemfacet2, corr, .desc = F))cowplot::plot_grid(ggplot(profile_df_plot %>%filter(rando!="Waitlist-Control")) +aes(x =as.factor(time), y = corr) +geom_boxplot() +geom_violin(fill =NA) +facet_wrap(vars(itemfacet2)) +labs(x ="Measurement Occasion", y ="Profile correlation", title ="Distance between ideal- and current-self in intervention groups") +theme_bw(),ggplot(profile_df_plot %>%filter(rando=="Waitlist-Control")) +aes(x =as.factor(time), y = corr) +geom_boxplot() +geom_violin(fill =NA) +facet_wrap(vars(itemfacet2)) +labs(x ="Measurement Occasion", y ="Profile correlation", title ="Distance between ideal- and current-self in waitlist control group") +theme_bw(),ncol =1, align ="vt")
Significantly higher profile correlations at the second measurement occasion, both for the item-level profile correlation and the facet-level profile correlations. Further increases (but only slightly) at the T3 follow-up. However, we also see a pattern of increases in the waitlist control group although with higher uncertainty of estimates (smaller sample). We would not have expected that from T1 to T2, but only from T2 to T3.
6.3.2 Individual traits: squared differences
6.3.2.1 Intervention effects (changes from T1 to T2)
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 576 0.39 0.69 0.11 0.23 0.16 0 6.25 6.25 4.03 22.73 0.03
Results summary:
mod_traits_sqdiff <- df_sbsa2_wide_profdiff %>%filter(rando!="Waitlist-Control") %>%select(-starts_with("profile"), -rando, -ends_with("_t3")) %>%pivot_longer(-c(pid), names_to =c("test", "time"), values_to ="score", names_pattern ="(.*)_(t1|t2)") %>%filter(!is.na(score)) %>%group_by(pid, test) %>%mutate(assessments =n()) %>%ungroup() %>%filter(assessments==2) %>%select(-assessments) %>%group_nest(test) %>%mutate(t_tests =map(data, ~t.test(score ~relevel(as.factor(time), "t2"), # need to relevel this to get T2-T1 diff (not sure why)data = .x, paired =TRUE))) %>%pull(t_tests) %>% purrr::set_names(sort(names(b5_vars))) # ordered alphabeticallymod_traits_unlist <- mod_traits_sqdiff[[1]] %>%tidy()for (i in2:length(mod_traits_sqdiff)) { mod_traits_unlist <-bind_rows(mod_traits_unlist, mod_traits_sqdiff[[i]] %>%tidy())}kable(mod_traits_unlist %>%mutate(outcome =sort(names(b5_vars))) %>%select(outcome, everything()) %>%arrange(factor(outcome, levels = (names(b5_vars)))), digits =3) # order by BFI traits
outcome
estimate
statistic
p.value
parameter
conf.low
conf.high
method
alternative
extraversion
-0.372
-6.354
0.000
576
-0.487
-0.257
Paired t-test
two.sided
agreeableness
-0.097
-3.536
0.000
575
-0.151
-0.043
Paired t-test
two.sided
conscientiousness
-0.169
-2.890
0.004
576
-0.284
-0.054
Paired t-test
two.sided
neuroticism
-0.697
-6.865
0.000
576
-0.896
-0.498
Paired t-test
two.sided
openness
-0.076
-2.587
0.010
574
-0.134
-0.018
Paired t-test
two.sided
sociability
-0.782
-7.573
0.000
574
-0.985
-0.579
Paired t-test
two.sided
assertiveness
-0.239
-3.030
0.003
573
-0.394
-0.084
Paired t-test
two.sided
energy
-0.337
-3.541
0.000
575
-0.523
-0.150
Paired t-test
two.sided
compassion
-0.118
-2.769
0.006
575
-0.201
-0.034
Paired t-test
two.sided
respectfulness
-0.012
-0.321
0.749
572
-0.086
0.062
Paired t-test
two.sided
trust
-0.329
-4.856
0.000
574
-0.462
-0.196
Paired t-test
two.sided
organization
-0.149
-1.777
0.076
575
-0.314
0.016
Paired t-test
two.sided
productiveness
-0.453
-4.519
0.000
572
-0.650
-0.256
Paired t-test
two.sided
responsibility
-0.139
-2.065
0.039
573
-0.271
-0.007
Paired t-test
two.sided
anxiety
-0.681
-4.592
0.000
576
-0.972
-0.389
Paired t-test
two.sided
depression
-0.887
-7.570
0.000
574
-1.117
-0.657
Paired t-test
two.sided
volatility
-0.603
-4.782
0.000
576
-0.851
-0.355
Paired t-test
two.sided
curiosity
-0.044
-1.039
0.299
573
-0.128
0.040
Paired t-test
two.sided
aesthetic
-0.053
-1.359
0.175
572
-0.130
0.024
Paired t-test
two.sided
imagination
-0.215
-3.559
0.000
574
-0.334
-0.097
Paired t-test
two.sided
# effect sizescohend_cust =function(outcome, df) { form =as.formula(paste0(outcome, " ~ time")) psych::cohen.d(form, data = df)}d_trait <-cohend_cust(paste0(str_trunc(names(b5_vars)[1], 5, ellipsis =""), "_sqdiff"), df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(1,2)))d_traits_unlist <-as_tibble(d_trait$cohen.d)for (i in2:length(names(b5_vars))) { d_trait <-cohend_cust(paste0(str_trunc(names(b5_vars)[i], 5, ellipsis =""), "_sqdiff"), df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(1,2))) d_traits_unlist <-bind_rows(d_traits_unlist, as_tibble(d_trait$cohen.d))}kable(d_traits_unlist %>%mutate(outcome =names(b5_vars)) %>%select(outcome, everything()), digits =3)
outcome
lower
effect
upper
extraversion
-0.310
-0.199
-0.088
agreeableness
-0.247
-0.135
-0.024
conscientiousness
-0.235
-0.124
-0.013
neuroticism
-0.328
-0.217
-0.105
openness
-0.212
-0.101
0.010
sociability
-0.345
-0.233
-0.122
assertiveness
-0.219
-0.108
0.003
energy
-0.268
-0.157
-0.045
compassion
-0.231
-0.120
-0.008
respectfulness
-0.173
-0.062
0.050
trust
-0.303
-0.191
-0.080
organization
-0.202
-0.091
0.020
productiveness
-0.286
-0.174
-0.063
responsibility
-0.223
-0.112
0.000
anxiety
-0.272
-0.160
-0.049
depression
-0.351
-0.240
-0.128
volatility
-0.283
-0.172
-0.060
curiosity
-0.161
-0.049
0.062
aesthetic
-0.178
-0.066
0.045
imagination
-0.235
-0.124
-0.012
Significantly lower squared mean-level differences at the second measurement occasion for extraversion, agreeableness, and neuroticism (at .001). For conscientiousness and openness only at p < .01. On the level of the 15 BFI-2 facets, we find 8 significant effects (at .001) where squared mean-level differences were reduced. For example, pronounced effect for energy but no effect for assertiveness.
What happens in the waitlist control group during this time?
mod_traits_sqdiff_cg <- df_sbsa2_wide_profdiff %>%filter(rando=="Waitlist-Control") %>%select(-starts_with("profile"), -rando, -ends_with("_t3")) %>%pivot_longer(-c(pid), names_to =c("test", "time"), values_to ="score", names_pattern ="(.*)_(t1|t2)") %>%filter(!is.na(score)) %>%group_by(pid, test) %>%mutate(assessments =n()) %>%ungroup() %>%filter(assessments==2) %>%select(-assessments) %>%group_nest(test) %>%mutate(t_tests =map(data, ~t.test(score ~relevel(as.factor(time), "t2"), # need to relevel this to get T2-T1 diff (not sure why)data = .x, paired =TRUE))) %>%pull(t_tests) %>% purrr::set_names(sort(names(b5_vars))) # ordered alphabeticallymod_traits_unlist_cg <- mod_traits_sqdiff_cg[[1]] %>%tidy()for (i in2:length(mod_traits_sqdiff_cg)) { mod_traits_unlist_cg <-bind_rows(mod_traits_unlist_cg, mod_traits_sqdiff_cg[[i]] %>%tidy())}kable(mod_traits_unlist_cg %>%mutate(outcome =sort(names(b5_vars))) %>%select(outcome, everything()) %>%arrange(factor(outcome, levels = (names(b5_vars)))), digits =3) # order by BFI traits
In the control group, significantly lower squared mean-level differences at the second measurement occasion only for facet organization (at .001). For extraversion, agreeableness, conscientiousness, and neuroticism only at p < .05 (as well as for 8 facets). However, in terms of effect sizes, relatively similar effects to intervention group.
No significant further changes in the squared difference from the second to the third measurement occasion (at .001). For neuroticism (and anxiety) further decreases only at p < .01.
6.3.2.3 Summary plot
Traits/facets sorted by average size of squared differences - in the intervention groups from T1 to T2
6.4 H4: Change goals and change in personality (current / ideal) in self-improvement group
Not specifically preregistered for study 2 because we were foremost interested in the moderation hypothesis (H6 in prereg / H2 in paper) and thought that it was somewhat redundant with these models of correlations with the change score. I still ran the models for study 2 here (without the control group and for changes between T1 and T2) in case the comparison with study 1 is of interest.
In the self-improvement group, there will be a correlation between change goals and change in current-self ratings but not change in ideal-self ratings.
We will test this one domain/facet at a time. We will use both general continuous change goal score as well as trait-specific change goals. To test this hypothesis, we will estimate the mean-level differences across time for both current and ideal trait ratings using latent change models and correlate change goals with the change variable from those models.
Reshape and split data set by intervention group:
Show the code
# from T1 to T2df_sbsa2_wide_pers_sb <- df_sbsa2 %>%filter(rando=="Self-Improvement"& time %in%c(1,2)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sb07")), # facet-specific change goals sb06_01) %>%# general change goalpivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with("sb07"), sb06_01)) %>%select(-c(sb07_01_t2, sb07_02_t2, sb07_03_t2, sb07_04_t2, sb07_05_t2, sb07_06_t2, sb07_07_t2, sb07_08_t2, sb07_09_t2, sb07_10_t2, sb07_11_t2, sb07_12_t2, sb07_13_t2, sb07_14_t2, sb07_15_t2, sb06_01_t2))# colnames(df_sbsa2_wide_pers_sb)group_assign <- df_sbsa2 %>%select(pid, rando) %>%unique()df_sbsa2_wide_pers_sb <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Improvement") %>%select(-rando, -ends_with("_t3")) %>%left_join(df_sbsa2_wide_pers_sb)# follow-up, from T2 to T3 (for later models)df_sbsa2_wide_pers_sb_fu <- df_sbsa2 %>%filter(rando=="Self-Improvement"& time %in%c(2,3)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sb07")), # facet-specific change goals sb06_01) %>%# general change goalpivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with("sb07"), sb06_01)) %>%select(-c(sb07_01_t2, sb07_02_t2, sb07_03_t2, sb07_04_t2, sb07_05_t2, sb07_06_t2, sb07_07_t2, sb07_08_t2, sb07_09_t2, sb07_10_t2, sb07_11_t2, sb07_12_t2, sb07_13_t2, sb07_14_t2, sb07_15_t2, sb06_01_t2))# colnames(df_sbsa2_wide_pers_sb)df_sbsa2_wide_pers_sb_fu <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Improvement"&!is.na(valid_t2)) %>%select(-rando, -ends_with("_t1")) %>%left_join(df_sbsa2_wide_pers_sb_fu)
6.4.1 Big Five traits
6.4.1.1 Extraversion - current-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_curr_hyp4 <-'extra_t1 =~ 1*extra_curr_par1_t1 + lamb2*extra_curr_par2_t1 + lamb3*extra_curr_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_curr_par1_t2 + lamb2*extra_curr_par2_t2 + lamb3*extra_curr_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsextra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableextra_curr_par1_t1 ~~ extra_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_curr_par2_t1 ~~ extra_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_curr_par3_t1 ~~ extra_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_curr_par1_t1 ~~ res1*extra_curr_par1_t1 # This allows residual variance on indicator X1 at T1 extra_curr_par2_t1 ~~ res2*extra_curr_par2_t1 # This allows residual variance on indicator X2 at T1extra_curr_par3_t1 ~~ res3*extra_curr_par3_t1 # This allows residual variance on indicator X3 at T1extra_curr_par1_t2 ~~ res1*extra_curr_par1_t2 # This allows residual variance on indicator X1 at T2 extra_curr_par2_t2 ~~ res2*extra_curr_par2_t2 # This allows residual variance on indicator X2 at T2 extra_curr_par3_t2 ~~ res3*extra_curr_par3_t2 # This allows residual variance on indicator X3 at T2extra_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_extra_curr_hyp4 <-lavaan(mi_lcs_extra_curr_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_curr_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
The correlation of the general change goal with the extraversion change score (current-self) is not significantly different from zero, r = -0.097, p = 0.276.
6.4.1.2 Extraversion - ideal-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_ideal_hyp4 <-'extra_t1 =~ 1*extra_ideal_par1_t1 + lamb2*extra_ideal_par2_t1 + lamb3*extra_ideal_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_ideal_par1_t2 + lamb2*extra_ideal_par2_t2 + lamb3*extra_ideal_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsextra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableextra_ideal_par1_t1 ~~ extra_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_ideal_par2_t1 ~~ extra_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_ideal_par3_t1 ~~ extra_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_ideal_par1_t1 ~~ res1*extra_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 extra_ideal_par2_t1 ~~ res2*extra_ideal_par2_t1 # This allows residual variance on indicator X2 at T1extra_ideal_par3_t1 ~~ res3*extra_ideal_par3_t1 # This allows residual variance on indicator X3 at T1extra_ideal_par1_t2 ~~ res1*extra_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 extra_ideal_par2_t2 ~~ res2*extra_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 extra_ideal_par3_t2 ~~ res3*extra_ideal_par3_t2 # This allows residual variance on indicator X3 at T2extra_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_extra_ideal_hyp4 <-lavaan(mi_lcs_extra_ideal_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_ideal_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_curr_specif_hyp4 <-'extra_t1 =~ 1*extra_curr_par1_t1 + lamb2*extra_curr_par2_t1 + lamb3*extra_curr_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_curr_par1_t2 + lamb2*extra_curr_par2_t2 + lamb3*extra_curr_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_01_t1 + sb07_02_t1 + sb07_03_t1 # latent change goal variable (three facets per trait)extra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableextra_curr_par1_t1 ~~ extra_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_curr_par2_t1 ~~ extra_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_curr_par3_t1 ~~ extra_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_curr_par1_t1 ~~ res1*extra_curr_par1_t1 # This allows residual variance on indicator X1 at T1 extra_curr_par2_t1 ~~ res2*extra_curr_par2_t1 # This allows residual variance on indicator X2 at T1extra_curr_par3_t1 ~~ res3*extra_curr_par3_t1 # This allows residual variance on indicator X3 at T1extra_curr_par1_t2 ~~ res1*extra_curr_par1_t2 # This allows residual variance on indicator X1 at T2 extra_curr_par2_t2 ~~ res2*extra_curr_par2_t2 # This allows residual variance on indicator X2 at T2 extra_curr_par3_t2 ~~ res3*extra_curr_par3_t2 # This allows residual variance on indicator X3 at T2extra_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_01_t1 ~~ sb07_01_t1sb07_02_t1 ~~ sb07_02_t1sb07_03_t1 ~~ sb07_03_t1sb07_01_t1 ~ 1sb07_02_t1 ~ 1sb07_03_t1 ~ 1'fit_mi_lcs_extra_curr_specif_hyp4 <-lavaan(mi_lcs_extra_curr_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_curr_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with extraversion change score (current-self) is not significantly different from zero, r = -0.263, p = 0.206.
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_ideal_specif_hyp4 <-'extra_t1 =~ 1*extra_ideal_par1_t1 + lamb2*extra_ideal_par2_t1 + lamb3*extra_ideal_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_ideal_par1_t2 + lamb2*extra_ideal_par2_t2 + lamb3*extra_ideal_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_01_t1 + sb07_02_t1 + sb07_03_t1 # latent change goal variable (three facets per trait)extra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableextra_ideal_par1_t1 ~~ extra_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_ideal_par2_t1 ~~ extra_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_ideal_par3_t1 ~~ extra_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_ideal_par1_t1 ~~ res1*extra_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 extra_ideal_par2_t1 ~~ res2*extra_ideal_par2_t1 # This allows residual variance on indicator X2 at T1extra_ideal_par3_t1 ~~ res3*extra_ideal_par3_t1 # This allows residual variance on indicator X3 at T1extra_ideal_par1_t2 ~~ res1*extra_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 extra_ideal_par2_t2 ~~ res2*extra_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 extra_ideal_par3_t2 ~~ res3*extra_ideal_par3_t2 # This allows residual variance on indicator X3 at T2extra_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_01_t1 ~~ sb07_01_t1sb07_02_t1 ~~ sb07_02_t1sb07_03_t1 ~~ sb07_03_t1sb07_01_t1 ~ 1sb07_02_t1 ~ 1sb07_03_t1 ~ 1'fit_mi_lcs_extra_ideal_specif_hyp4 <-lavaan(mi_lcs_extra_ideal_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_ideal_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with extraversion change score (ideal-self) is not significantly different from zero, r = 0.118, p = 0.417.
6.4.1.5 Agreeableness - current-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_curr_hyp4 <-'agree_t1 =~ 1*agree_curr_par1_t1 + lamb2*agree_curr_par2_t1 + lamb3*agree_curr_par3_t1 # This specifies the measurement model for agree_t1agree_t2 =~ 1*agree_curr_par1_t2 + lamb2*agree_curr_par2_t2 + lamb3*agree_curr_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsagree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableagree_curr_par1_t1 ~~ agree_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_curr_par2_t1 ~~ agree_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_curr_par3_t1 ~~ agree_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_curr_par1_t1 ~~ res1*agree_curr_par1_t1 # This allows residual variance on indicator X1 at T1 agree_curr_par2_t1 ~~ res2*agree_curr_par2_t1 # This allows residual variance on indicator X2 at T1agree_curr_par3_t1 ~~ res3*agree_curr_par3_t1 # This allows residual variance on indicator X3 at T1agree_curr_par1_t2 ~~ res1*agree_curr_par1_t2 # This allows residual variance on indicator X1 at T2 agree_curr_par2_t2 ~~ res2*agree_curr_par2_t2 # This allows residual variance on indicator X2 at T2 agree_curr_par3_t2 ~~ res3*agree_curr_par3_t2 # This allows residual variance on indicator X3 at T2agree_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_agree_curr_hyp4 <-lavaan(mi_lcs_agree_curr_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_curr_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
Correlation of general change goal with agreeableness change score (current-self) is not significantly different from zero, r = 0.118, p = 0.167.
6.4.1.6 Agreeableness - ideal-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_ideal_hyp4 <-'agree_t1 =~ 1*agree_ideal_par1_t1 + lamb2*agree_ideal_par2_t1 + lamb3*agree_ideal_par3_t1 # This specifies the measurement model for agree_t1 agree_t2 =~ 1*agree_ideal_par1_t2 + lamb2*agree_ideal_par2_t2 + lamb3*agree_ideal_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsagree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableagree_ideal_par1_t1 ~~ agree_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_ideal_par2_t1 ~~ agree_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_ideal_par3_t1 ~~ agree_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_ideal_par1_t1 ~~ res1*agree_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 agree_ideal_par2_t1 ~~ res2*agree_ideal_par2_t1 # This allows residual variance on indicator X2 at T1agree_ideal_par3_t1 ~~ res3*agree_ideal_par3_t1 # This allows residual variance on indicator X3 at T1agree_ideal_par1_t2 ~~ res1*agree_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 agree_ideal_par2_t2 ~~ res2*agree_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 agree_ideal_par3_t2 ~~ res3*agree_ideal_par3_t2 # This allows residual variance on indicator X3 at T2agree_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_agree_ideal_hyp4 <-lavaan(mi_lcs_agree_ideal_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_ideal_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_curr_specif_hyp4 <-'agree_t1 =~ 1*agree_curr_par1_t1 + lamb2*agree_curr_par2_t1 + lamb3*agree_curr_par3_t1 # This specifies the measurement model for agree_t1agree_t2 =~ 1*agree_curr_par1_t2 + lamb2*agree_curr_par2_t2 + lamb3*agree_curr_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_04_t1 + sb07_05_t1 + sb07_06_t1 # latent change goal variable (three facets per trait)agree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableagree_curr_par1_t1 ~~ agree_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_curr_par2_t1 ~~ agree_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_curr_par3_t1 ~~ agree_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_curr_par1_t1 ~~ res1*agree_curr_par1_t1 # This allows residual variance on indicator X1 at T1 agree_curr_par2_t1 ~~ res2*agree_curr_par2_t1 # This allows residual variance on indicator X2 at T1agree_curr_par3_t1 ~~ res3*agree_curr_par3_t1 # This allows residual variance on indicator X3 at T1agree_curr_par1_t2 ~~ res1*agree_curr_par1_t2 # This allows residual variance on indicator X1 at T2 agree_curr_par2_t2 ~~ res2*agree_curr_par2_t2 # This allows residual variance on indicator X2 at T2 agree_curr_par3_t2 ~~ res3*agree_curr_par3_t2 # This allows residual variance on indicator X3 at T2agree_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_04_t1 ~~ sb07_04_t1sb07_05_t1 ~~ sb07_05_t1sb07_06_t1 ~~ sb07_06_t1sb07_04_t1 ~ 1sb07_05_t1 ~ 1sb07_06_t1 ~ 1'fit_mi_lcs_agree_curr_specif_hyp4 <-lavaan(mi_lcs_agree_curr_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_curr_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with agreeableness change score (current-self) is not significantly different from zero, r = -0.078, p = 0.467.
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_ideal_specif_hyp4 <-'agree_t1 =~ 1*agree_ideal_par1_t1 + lamb2*agree_ideal_par2_t1 + lamb3*agree_ideal_par3_t1 # This specifies the measurement model for agree_t1 agree_t2 =~ 1*agree_ideal_par1_t2 + lamb2*agree_ideal_par2_t2 + lamb3*agree_ideal_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_04_t1 + sb07_05_t1 + sb07_06_t1 # latent change goal variable (three facets per trait)agree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableagree_ideal_par1_t1 ~~ agree_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_ideal_par2_t1 ~~ agree_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_ideal_par3_t1 ~~ agree_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_ideal_par1_t1 ~~ res1*agree_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 agree_ideal_par2_t1 ~~ res2*agree_ideal_par2_t1 # This allows residual variance on indicator X2 at T1agree_ideal_par3_t1 ~~ res3*agree_ideal_par3_t1 # This allows residual variance on indicator X3 at T1agree_ideal_par1_t2 ~~ res1*agree_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 agree_ideal_par2_t2 ~~ res2*agree_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 agree_ideal_par3_t2 ~~ res3*agree_ideal_par3_t2 # This allows residual variance on indicator X3 at T2agree_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_04_t1 ~~ sb07_04_t1sb07_05_t1 ~~ sb07_05_t1sb07_06_t1 ~~ sb07_06_t1sb07_04_t1 ~ 1sb07_05_t1 ~ 1sb07_06_t1 ~ 1'fit_mi_lcs_agree_ideal_specif_hyp4 <-lavaan(mi_lcs_agree_ideal_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_ideal_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with agreeableness change score (ideal-self) is not significantly different from zero, r = -0.016, p = 0.88.
6.4.1.9 Conscientiousness - current-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_curr_hyp4 <-'consc_t1 =~ 1*consc_curr_par1_t1 + lamb2*consc_curr_par2_t1 + lamb3*consc_curr_par3_t1 # This specifies the measurement model for consc_t1 consc_t2 =~ 1*consc_curr_par1_t2 + lamb2*consc_curr_par2_t2 + lamb3*consc_curr_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsconsc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableconsc_curr_par1_t1 ~~ consc_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_curr_par2_t1 ~~ consc_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_curr_par3_t1 ~~ consc_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_curr_par1_t1 ~~ res1*consc_curr_par1_t1 # This allows residual variance on indicator X1 at T1 consc_curr_par2_t1 ~~ res2*consc_curr_par2_t1 # This allows residual variance on indicator X2 at T1consc_curr_par3_t1 ~~ res3*consc_curr_par3_t1 # This allows residual variance on indicator X3 at T1consc_curr_par1_t2 ~~ res1*consc_curr_par1_t2 # This allows residual variance on indicator X1 at T2 consc_curr_par2_t2 ~~ res2*consc_curr_par2_t2 # This allows residual variance on indicator X2 at T2 consc_curr_par3_t2 ~~ res3*consc_curr_par3_t2 # This allows residual variance on indicator X3 at T2consc_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_consc_curr_hyp4 <-lavaan(mi_lcs_consc_curr_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_curr_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
Correlation of general change goal with conscientiousness change score (current-self) is not significantly different from zero, r = 0.055, p = 0.536.
6.4.1.10 Conscientiousness - ideal-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_ideal_hyp4 <-'consc_t1 =~ 1*consc_ideal_par1_t1 + lamb2*consc_ideal_par2_t1 + lamb3*consc_ideal_par3_t1 # This specifies the measurement model for consc_t1consc_t2 =~ 1*consc_ideal_par1_t2 + lamb2*consc_ideal_par2_t2 + lamb3*consc_ideal_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsconsc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableconsc_ideal_par1_t1 ~~ consc_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_ideal_par2_t1 ~~ consc_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_ideal_par3_t1 ~~ consc_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_ideal_par1_t1 ~~ res1*consc_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 consc_ideal_par2_t1 ~~ res2*consc_ideal_par2_t1 # This allows residual variance on indicator X2 at T1consc_ideal_par3_t1 ~~ res3*consc_ideal_par3_t1 # This allows residual variance on indicator X3 at T1consc_ideal_par1_t2 ~~ res1*consc_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 consc_ideal_par2_t2 ~~ res2*consc_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 consc_ideal_par3_t2 ~~ res3*consc_ideal_par3_t2 # This allows residual variance on indicator X3 at T2consc_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_consc_ideal_hyp4 <-lavaan(mi_lcs_consc_ideal_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_ideal_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_curr_specif_hyp4 <-'consc_t1 =~ 1*consc_curr_par1_t1 + lamb2*consc_curr_par2_t1 + lamb3*consc_curr_par3_t1 # This specifies the measurement model for consc_t1 consc_t2 =~ 1*consc_curr_par1_t2 + lamb2*consc_curr_par2_t2 + lamb3*consc_curr_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_07_t1 + sb07_08_t1 + sb07_09_t1 # latent change goal variable (three facets per trait)consc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableconsc_curr_par1_t1 ~~ consc_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_curr_par2_t1 ~~ consc_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_curr_par3_t1 ~~ consc_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_curr_par1_t1 ~~ res1*consc_curr_par1_t1 # This allows residual variance on indicator X1 at T1 consc_curr_par2_t1 ~~ res2*consc_curr_par2_t1 # This allows residual variance on indicator X2 at T1consc_curr_par3_t1 ~~ res3*consc_curr_par3_t1 # This allows residual variance on indicator X3 at T1consc_curr_par1_t2 ~~ res1*consc_curr_par1_t2 # This allows residual variance on indicator X1 at T2 consc_curr_par2_t2 ~~ res2*consc_curr_par2_t2 # This allows residual variance on indicator X2 at T2 consc_curr_par3_t2 ~~ res3*consc_curr_par3_t2 # This allows residual variance on indicator X3 at T2consc_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_07_t1 ~~ sb07_07_t1sb07_08_t1 ~~ sb07_08_t1sb07_09_t1 ~~ sb07_09_t1sb07_07_t1 ~ 1sb07_08_t1 ~ 1sb07_09_t1 ~ 1'fit_mi_lcs_consc_curr_specif_hyp4 <-lavaan(mi_lcs_consc_curr_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_curr_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with conscientiousness change score (current-self) is significantly different from zero, r = -0.23, p = 0.018.
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_ideal_specif_hyp4 <-'consc_t1 =~ 1*consc_ideal_par1_t1 + lamb2*consc_ideal_par2_t1 + lamb3*consc_ideal_par3_t1 # This specifies the measurement model for consc_t1consc_t2 =~ 1*consc_ideal_par1_t2 + lamb2*consc_ideal_par2_t2 + lamb3*consc_ideal_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_07_t1 + sb07_08_t1 + sb07_09_t1 # latent change goal variable (three facets per trait)consc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableconsc_ideal_par1_t1 ~~ consc_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_ideal_par2_t1 ~~ consc_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_ideal_par3_t1 ~~ consc_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_ideal_par1_t1 ~~ res1*consc_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 consc_ideal_par2_t1 ~~ res2*consc_ideal_par2_t1 # This allows residual variance on indicator X2 at T1consc_ideal_par3_t1 ~~ res3*consc_ideal_par3_t1 # This allows residual variance on indicator X3 at T1consc_ideal_par1_t2 ~~ res1*consc_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 consc_ideal_par2_t2 ~~ res2*consc_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 consc_ideal_par3_t2 ~~ res3*consc_ideal_par3_t2 # This allows residual variance on indicator X3 at T2consc_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_07_t1 ~~ sb07_07_t1sb07_08_t1 ~~ sb07_08_t1sb07_09_t1 ~~ sb07_09_t1sb07_07_t1 ~ 1sb07_08_t1 ~ 1sb07_09_t1 ~ 1'fit_mi_lcs_consc_ideal_specif_hyp4 <-lavaan(mi_lcs_consc_ideal_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_ideal_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with conscientiousness change score (ideal-self) is not significantly different from zero, r = -0.116, p = 0.209.
6.4.1.13 Neuroticism - current-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_curr_hyp4 <-'neuro_t1 =~ 1*neuro_curr_par1_t1 + lamb2*neuro_curr_par2_t1 + lamb3*neuro_curr_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_curr_par1_t2 + lamb2*neuro_curr_par2_t2 + lamb3*neuro_curr_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsneuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableneuro_curr_par1_t1 ~~ neuro_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_curr_par2_t1 ~~ neuro_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_curr_par3_t1 ~~ neuro_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_curr_par1_t1 ~~ res1*neuro_curr_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_curr_par2_t1 ~~ res2*neuro_curr_par2_t1 # This allows residual variance on indicator X2 at T1neuro_curr_par3_t1 ~~ res3*neuro_curr_par3_t1 # This allows residual variance on indicator X3 at T1neuro_curr_par1_t2 ~~ res1*neuro_curr_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_curr_par2_t2 ~~ res2*neuro_curr_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_curr_par3_t2 ~~ res3*neuro_curr_par3_t2 # This allows residual variance on indicator X3 at T2neuro_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_neuro_curr_hyp4 <-lavaan(mi_lcs_neuro_curr_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_curr_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
Correlation of general change goal with neuroticism change score (current-self) is not significantly different from zero, r = -0.01, p = 0.902.
6.4.1.14 Neuroticism - ideal-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_ideal_hyp4 <-'neuro_t1 =~ 1*neuro_ideal_par1_t1 + lamb2*neuro_ideal_par2_t1 + lamb3*neuro_ideal_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_ideal_par1_t2 + lamb2*neuro_ideal_par2_t2 + lamb3*neuro_ideal_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsneuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableneuro_ideal_par1_t1 ~~ neuro_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_ideal_par2_t1 ~~ neuro_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_ideal_par3_t1 ~~ neuro_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_ideal_par1_t1 ~~ res1*neuro_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_ideal_par2_t1 ~~ res2*neuro_ideal_par2_t1 # This allows residual variance on indicator X2 at T1neuro_ideal_par3_t1 ~~ res3*neuro_ideal_par3_t1 # This allows residual variance on indicator X3 at T1neuro_ideal_par1_t2 ~~ res1*neuro_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_ideal_par2_t2 ~~ res2*neuro_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_ideal_par3_t2 ~~ res3*neuro_ideal_par3_t2 # This allows residual variance on indicator X3 at T2neuro_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_neuro_ideal_hyp4 <-lavaan(mi_lcs_neuro_ideal_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_ideal_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_curr_specif_hyp4 <-'neuro_t1 =~ 1*neuro_curr_par1_t1 + lamb2*neuro_curr_par2_t1 + lamb3*neuro_curr_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_curr_par1_t2 + lamb2*neuro_curr_par2_t2 + lamb3*neuro_curr_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_10_t1 + sb07_11_t1 + sb07_12_t1 # latent change goal variable (three facets per trait)neuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableneuro_curr_par1_t1 ~~ neuro_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_curr_par2_t1 ~~ neuro_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_curr_par3_t1 ~~ neuro_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_curr_par1_t1 ~~ res1*neuro_curr_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_curr_par2_t1 ~~ res2*neuro_curr_par2_t1 # This allows residual variance on indicator X2 at T1neuro_curr_par3_t1 ~~ res3*neuro_curr_par3_t1 # This allows residual variance on indicator X3 at T1neuro_curr_par1_t2 ~~ res1*neuro_curr_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_curr_par2_t2 ~~ res2*neuro_curr_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_curr_par3_t2 ~~ res3*neuro_curr_par3_t2 # This allows residual variance on indicator X3 at T2neuro_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_10_t1 ~~ sb07_10_t1sb07_11_t1 ~~ sb07_11_t1sb07_12_t1 ~~ sb07_12_t1sb07_10_t1 ~ 1sb07_11_t1 ~ 1sb07_12_t1 ~ 1'fit_mi_lcs_neuro_curr_specif_hyp4 <-lavaan(mi_lcs_neuro_curr_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_curr_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
The correlation of specific, facet-level change goals with neuroticism change score (current-self) is significantly different from zero, r = 0.287, p = 0.002.
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_ideal_specif_hyp4 <-'neuro_t1 =~ 1*neuro_ideal_par1_t1 + lamb2*neuro_ideal_par2_t1 + lamb3*neuro_ideal_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_ideal_par1_t2 + lamb2*neuro_ideal_par2_t2 + lamb3*neuro_ideal_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_10_t1 + sb07_11_t1 + sb07_12_t1 # latent change goal variable (three facets per trait)neuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableneuro_ideal_par1_t1 ~~ neuro_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_ideal_par2_t1 ~~ neuro_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_ideal_par3_t1 ~~ neuro_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_ideal_par1_t1 ~~ res1*neuro_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_ideal_par2_t1 ~~ res2*neuro_ideal_par2_t1 # This allows residual variance on indicator X2 at T1neuro_ideal_par3_t1 ~~ res3*neuro_ideal_par3_t1 # This allows residual variance on indicator X3 at T1neuro_ideal_par1_t2 ~~ res1*neuro_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_ideal_par2_t2 ~~ res2*neuro_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_ideal_par3_t2 ~~ res3*neuro_ideal_par3_t2 # This allows residual variance on indicator X3 at T2neuro_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_10_t1 ~~ sb07_10_t1sb07_11_t1 ~~ sb07_11_t1sb07_12_t1 ~~ sb07_12_t1sb07_10_t1 ~ 1sb07_11_t1 ~ 1sb07_12_t1 ~ 1'fit_mi_lcs_neuro_ideal_specif_hyp4 <-lavaan(mi_lcs_neuro_ideal_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_ideal_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with neuroticism change score (ideal-self) is not significantly different from zero, r = 0.071, p = 0.397.
6.4.1.17 Openness - current-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_curr_hyp4 <-'openn_t1 =~ 1*openn_curr_par1_t1 + lamb2*openn_curr_par2_t1 + lamb3*openn_curr_par3_t1 # This specifies the measurement model for openn_t1openn_t2 =~ 1*openn_curr_par1_t2 + lamb2*openn_curr_par2_t2 + lamb3*openn_curr_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsopenn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableopenn_curr_par1_t1 ~~ openn_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_curr_par2_t1 ~~ openn_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_curr_par3_t1 ~~ openn_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_curr_par1_t1 ~~ res1*openn_curr_par1_t1 # This allows residual variance on indicator X1 at T1 openn_curr_par2_t1 ~~ res2*openn_curr_par2_t1 # This allows residual variance on indicator X2 at T1openn_curr_par3_t1 ~~ res3*openn_curr_par3_t1 # This allows residual variance on indicator X3 at T1openn_curr_par1_t2 ~~ res1*openn_curr_par1_t2 # This allows residual variance on indicator X1 at T2 openn_curr_par2_t2 ~~ res2*openn_curr_par2_t2 # This allows residual variance on indicator X2 at T2 openn_curr_par3_t2 ~~ res3*openn_curr_par3_t2 # This allows residual variance on indicator X3 at T2openn_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_openn_curr_hyp4 <-lavaan(mi_lcs_openn_curr_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_curr_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
Correlation of general change goal with openness change score (current-self) is not significantly different from zero, r = -0.06, p = 0.489.
6.4.1.18 Openness - ideal-self: general change goals
Fit model:
Show the code
# adding correlation with manifest change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_ideal_hyp4 <-'openn_t1 =~ 1*openn_ideal_par1_t1 + lamb2*openn_ideal_par2_t1 + lamb3*openn_ideal_par3_t1 # This specifies the measurement model for openn_t1 openn_t2 =~ 1*openn_ideal_par1_t2 + lamb2*openn_ideal_par2_t2 + lamb3*openn_ideal_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsopenn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ sb06_01_t1 # estimates the covariance/correlation with change goal variableopenn_ideal_par1_t1 ~~ openn_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_ideal_par2_t1 ~~ openn_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_ideal_par3_t1 ~~ openn_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_ideal_par1_t1 ~~ res1*openn_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 openn_ideal_par2_t1 ~~ res2*openn_ideal_par2_t1 # This allows residual variance on indicator X2 at T1openn_ideal_par3_t1 ~~ res3*openn_ideal_par3_t1 # This allows residual variance on indicator X3 at T1openn_ideal_par1_t2 ~~ res1*openn_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 openn_ideal_par2_t2 ~~ res2*openn_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 openn_ideal_par3_t2 ~~ res3*openn_ideal_par3_t2 # This allows residual variance on indicator X3 at T2openn_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb06_01_t1 ~~ sb06_01_t1sb06_01_t1 ~ 1'fit_mi_lcs_openn_ideal_hyp4 <-lavaan(mi_lcs_openn_ideal_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_ideal_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sb06_01_t1 = general change goal):
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_curr_specif_hyp4 <-'openn_t1 =~ 1*openn_curr_par1_t1 + lamb2*openn_curr_par2_t1 + lamb3*openn_curr_par3_t1 # This specifies the measurement model for openn_t1openn_t2 =~ 1*openn_curr_par1_t2 + lamb2*openn_curr_par2_t2 + lamb3*openn_curr_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_13_t1 + sb07_14_t1 + sb07_15_t1 # latent change goal variable (three facets per trait)openn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableopenn_curr_par1_t1 ~~ openn_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_curr_par2_t1 ~~ openn_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_curr_par3_t1 ~~ openn_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_curr_par1_t1 ~~ res1*openn_curr_par1_t1 # This allows residual variance on indicator X1 at T1 openn_curr_par2_t1 ~~ res2*openn_curr_par2_t1 # This allows residual variance on indicator X2 at T1openn_curr_par3_t1 ~~ res3*openn_curr_par3_t1 # This allows residual variance on indicator X3 at T1openn_curr_par1_t2 ~~ res1*openn_curr_par1_t2 # This allows residual variance on indicator X1 at T2 openn_curr_par2_t2 ~~ res2*openn_curr_par2_t2 # This allows residual variance on indicator X2 at T2 openn_curr_par3_t2 ~~ res3*openn_curr_par3_t2 # This allows residual variance on indicator X3 at T2openn_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_13_t1 ~~ sb07_13_t1sb07_14_t1 ~~ sb07_14_t1sb07_15_t1 ~~ sb07_15_t1sb07_13_t1 ~ 1sb07_14_t1 ~ 1sb07_15_t1 ~ 1'fit_mi_lcs_openn_curr_specif_hyp4 <-lavaan(mi_lcs_openn_curr_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_curr_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
The correlation of specific, facet-level change goals with openness change score (current-self) is not significantly different from zero, r = -0.134, p = 0.164.
# adding correlation with latent (made up of the three facets) change goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_ideal_specif_hyp4 <-'openn_t1 =~ 1*openn_ideal_par1_t1 + lamb2*openn_ideal_par2_t1 + lamb3*openn_ideal_par3_t1 # This specifies the measurement model for openn_t1 openn_t2 =~ 1*openn_ideal_par1_t2 + lamb2*openn_ideal_par2_t2 + lamb3*openn_ideal_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsgoals =~ 1*sb07_13_t1 + sb07_14_t1 + sb07_15_t1 # latent change goal variable (three facets per trait)openn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ goals # estimates the covariance/correlation with the (latent) change goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) change goal variable to 0goals ~~ goals # This estimates the variance of the (latent) change goal variableopenn_ideal_par1_t1 ~~ openn_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_ideal_par2_t1 ~~ openn_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_ideal_par3_t1 ~~ openn_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_ideal_par1_t1 ~~ res1*openn_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 openn_ideal_par2_t1 ~~ res2*openn_ideal_par2_t1 # This allows residual variance on indicator X2 at T1openn_ideal_par3_t1 ~~ res3*openn_ideal_par3_t1 # This allows residual variance on indicator X3 at T1openn_ideal_par1_t2 ~~ res1*openn_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 openn_ideal_par2_t2 ~~ res2*openn_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 openn_ideal_par3_t2 ~~ res3*openn_ideal_par3_t2 # This allows residual variance on indicator X3 at T2openn_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb07_13_t1 ~~ sb07_13_t1sb07_14_t1 ~~ sb07_14_t1sb07_15_t1 ~~ sb07_15_t1sb07_13_t1 ~ 1sb07_14_t1 ~ 1sb07_15_t1 ~ 1'fit_mi_lcs_openn_ideal_specif_hyp4 <-lavaan(mi_lcs_openn_ideal_specif_hyp4, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_ideal_specif_hyp4, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific change goal):
Correlation of specific, facet-level change goals with openness change score (ideal-self) is not significantly different from zero, r = -0.018, p = 0.86.
6.4.2 Big Five facets
Run models for all facets with a template & loop:
Show the code
# create template:facet_template <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)facet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 d_facet_1 ~ facet_t1 # This estimates the self-feedback parameterd_facet_1 ~~ ind_goal # estimates the covariance/correlation with change goal variableind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facetsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# loop across 2 BFI versions (combined pre&post current/ideal)for (j in5:length(bfi_versions)) { items =paste0(bfi_versions[[j]], item_nrs)# loop across 2 different goal operationalizations (sb06_01_t1 & sb07_XX_t1)for (k in1:2) {if (k==1) { goal_op ="sb06_01_t1" } else{ goal_op =paste0("sb07_", str_pad(i-5, 2, pad ="0"), "_t1") } template_filled <-str_replace_all(facet_template, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= goal_op)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb, estimator='mlr', fixed.x=FALSE, missing='fiml')# save to environmentif (k==1) {eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_hyp4")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_hyp4")), facet_model_fit)) } else{eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_specif_hyp4")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_specif_hyp4")), facet_model_fit)) } } }}
6.4.2.1 Sociability - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
The correlation of the general change goal with the sociability change score (current-self) is significantly different from zero, r = -0.071, p = 0.426.
6.4.2.2 Sociability - ideal-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with sociability change score (current-self) is significantly different from zero, r = -0.229, p = 0.033.
The correlation of specific, facet-level change goals with the anxiety change score (ideal-self) is not significantly different from zero, r = -0.131, p = 0.221.
6.4.2.5 Assertiveness - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with assertiveness change score (current-self) is significantly different from zero, r = -0.2, p = 0.033.
Correlation of specific, facet-level change goals with assertiveness change score (ideal-self) is not significantly different from zero, r = 0.041, p = 0.686.
6.4.2.9 Energy - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with energy change score (current-self) is not significantly different from zero, r = -0.008, p = 0.941.
6.4.2.12 Energy - ideal-self: specific, facet-level change goals
Results summary (sb07_xx_t1 = trait/facet specific change goal):
Correlation of specific, facet-level change goals with energy change score (ideal-self) is not significantly different from zero, r = 0.016, p = 0.879.
6.4.2.13 Compassion - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with compassion change score (current-self) is not significantly different from zero, r = -0.035, p = 0.792.
Correlation of specific, facet-level change goals with compassion change score (ideal-self) is not significantly different from zero, r = 0.061, p = 0.687.
6.4.2.17 Respectfulness - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with respectfulness change score (current-self) is not significantly different from zero, r = -0.18, p = 0.056.
The correlation of specific, facet-level change goals with the respectfulness change score (ideal-self) is not significantly different from zero, r = -0.171, p = 0.112.
6.4.2.21 Trust - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with trust change score (current-self) is not significantly different from zero, r = -0.088, p = 0.46.
Correlation of specific, facet-level change goals with trust change score (ideal-self) is not significantly different from zero, r = -0.184, p = 0.308.
6.4.2.25 Organization - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with organization change score (current-self) is not significantly different from zero, r = 0.204, p = 0.059.
Correlation of specific, facet-level change goals with organization change score (ideal-self) is not significantly different from zero, r = 0.122, p = 0.257.
6.4.2.29 Productiveness - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with productiveness change score (current-self) is significantly different from zero, r = 0.254, p = 0.007.
Correlation of specific, facet-level change goals with productiveness change score (ideal-self) is not significantly different from zero, r = 0.119, p = 0.157.
6.4.2.33 Responsibility - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with responsibility change score (current-self) is not significantly different from zero, r = -0.176, p = 0.092.
Correlation of specific, facet-level change goals with responsibility change score (ideal-self) is not significantly different from zero, r = -0.037, p = 0.729.
6.4.2.37 Anxiety - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
The correlation of specific, facet-level change goals with the anxiety change score (current-self) is not significantly different from zero, r = -0.039, p = 0.75.
Correlation of specific, facet-level change goals with anxiety change score (ideal-self) is not significantly different from zero, r = 0.059, p = 0.499.
6.4.2.41 Depression - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
The correlation of specific, facet-level change goals with the depression change score (current-self) is significantly different from zero, r = -0.374, p = 0.001.
Correlation of specific, facet-level change goals with the depression change score (ideal-self) is not significantly different from zero, r = -0.061, p = 0.417.
6.4.2.45 Volatility - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with volatility change score (current-self) is significantly different from zero, r = 0.193, p = 0.038.
Correlation of specific, facet-level change goals with volatility change score (ideal-self) is not significantly different from zero, r = 0.094, p = 0.315.
6.4.2.49 Curiosity - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with curiosity change score (current-self) is not significantly different from zero, r = 0.083, p = 0.543.
Correlation of specific, facet-level change goals with curiosity change score (ideal-self) is not significantly different from zero, r = -0.004, p = 0.978.
6.4.2.53 Aesthetic - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with aesthetic change score (current-self) is not significantly different from zero, r = 0.027, p = 0.771.
Correlation of specific, facet-level change goals with aesthetic change score (ideal-self) is not significantly different from zero, r = 0.073, p = 0.481.
6.4.2.57 Imagination - current-self: general change goals
Results summary (sb06_01_t1 = general change goal):
Correlation of specific, facet-level change goals with imagination change score (current-self) is not significantly different from zero, r = -0.184, p = 0.06.
Correlation of specific, facet-level change goals with imagination change score (ideal-self) is not significantly different from zero, r = -0.042, p = 0.658.
Results summary across the Big Five traits: covariance of the latent change score and change goal(s)
kable(df_table_hyp4[1:20, ], digits =3)
trait
ref
goal
estimate
std.all
statistic
p.value
extraversion
current
general
-0.026
-0.097
-1.090
0.276
extraversion
ideal
general
0.002
0.009
0.094
0.925
extraversion
current
specific
-0.046
-0.263
-1.264
0.206
extraversion
ideal
specific
0.016
0.118
0.812
0.417
agreeableness
current
general
0.023
0.118
1.383
0.167
agreeableness
ideal
general
0.009
0.034
0.438
0.662
agreeableness
current
specific
-0.014
-0.078
-0.728
0.467
agreeableness
ideal
specific
-0.004
-0.016
-0.150
0.880
conscientiousness
current
general
0.022
0.055
0.619
0.536
conscientiousness
ideal
general
0.011
0.044
0.538
0.590
conscientiousness
current
specific
-0.108
-0.230
-2.365
0.018
conscientiousness
ideal
specific
-0.035
-0.116
-1.255
0.209
neuroticism
current
general
-0.004
-0.010
-0.123
0.902
neuroticism
ideal
general
-0.046
-0.130
-1.665
0.096
neuroticism
current
specific
0.135
0.287
3.053
0.002
neuroticism
ideal
specific
0.027
0.071
0.847
0.397
openness
current
general
-0.016
-0.060
-0.692
0.489
openness
ideal
general
0.003
0.018
0.197
0.844
openness
current
specific
-0.028
-0.134
-1.392
0.164
openness
ideal
specific
-0.002
-0.018
-0.177
0.860
Three covariances/correlations that significantly differ from zero:
- Changes in current-level conscientiousness covary with the specific trait goals (latent factor of the three C facets).
- Changes in current-level neuroticism covary with the specific trait goals (latent factor of the three N facets).
Results summary across the Big Five facets: covariance of the latent change score and change goal(s)
kable(df_table_hyp4[21:80, ], digits =3)
trait
ref
goal
estimate
std.all
statistic
p.value
sociability
current
general
-0.026
-0.071
-0.796
0.426
sociability
ideal
general
0.042
0.162
1.531
0.126
sociability
current
specific
-0.104
-0.229
-2.128
0.033
sociability
ideal
specific
-0.042
-0.131
-1.224
0.221
assertiveness
current
general
-0.019
-0.073
-0.848
0.397
assertiveness
ideal
general
-0.014
-0.070
-0.629
0.530
assertiveness
current
specific
-0.068
-0.200
-2.134
0.033
assertiveness
ideal
specific
0.010
0.041
0.405
0.686
energy
current
general
0.016
0.112
0.976
0.329
energy
ideal
general
0.000
0.001
0.008
0.993
energy
current
specific
-0.001
-0.008
-0.074
0.941
energy
ideal
specific
0.003
0.016
0.153
0.879
compassion
current
general
0.027
0.123
1.014
0.311
compassion
ideal
general
-0.030
-0.133
-1.012
0.312
compassion
current
specific
-0.010
-0.035
-0.264
0.792
compassion
ideal
specific
0.018
0.061
0.403
0.687
respectfulness
current
general
0.000
0.001
0.013
0.990
respectfulness
ideal
general
0.009
0.040
0.367
0.714
respectfulness
current
specific
-0.066
-0.180
-1.915
0.056
respectfulness
ideal
specific
-0.050
-0.171
-1.591
0.112
trust
current
general
-0.035
-0.127
-1.089
0.276
trust
ideal
general
-0.006
-0.045
-0.260
0.795
trust
current
specific
-0.033
-0.088
-0.739
0.460
trust
ideal
specific
-0.032
-0.184
-1.019
0.308
organization
current
general
-0.007
-0.015
-0.163
0.871
organization
ideal
general
0.004
0.016
0.165
0.869
organization
current
specific
0.140
0.204
1.890
0.059
organization
ideal
specific
0.048
0.122
1.133
0.257
productiveness
current
general
-0.004
-0.007
-0.075
0.940
productiveness
ideal
general
-0.021
-0.083
-0.856
0.392
productiveness
current
specific
0.201
0.254
2.677
0.007
productiveness
ideal
specific
0.041
0.119
1.415
0.157
responsibility
current
general
0.011
0.047
0.457
0.648
responsibility
ideal
general
0.015
0.084
0.800
0.424
responsibility
current
specific
-0.065
-0.176
-1.683
0.092
responsibility
ideal
specific
-0.010
-0.037
-0.346
0.729
anxiety
current
general
0.021
0.050
0.419
0.675
anxiety
ideal
general
0.047
0.194
1.907
0.056
anxiety
current
specific
-0.024
-0.039
-0.319
0.750
anxiety
ideal
specific
0.021
0.059
0.677
0.499
depression
current
general
-0.028
-0.078
-0.841
0.400
depression
ideal
general
0.016
0.072
0.822
0.411
depression
current
specific
-0.220
-0.374
-3.386
0.001
depression
ideal
specific
-0.022
-0.061
-0.811
0.417
volatility
current
general
0.015
0.030
0.354
0.724
volatility
ideal
general
-0.032
-0.098
-1.101
0.271
volatility
current
specific
0.139
0.193
2.071
0.038
volatility
ideal
specific
0.043
0.094
1.005
0.315
curiosity
current
general
-0.007
-0.037
-0.316
0.752
curiosity
ideal
general
0.027
0.193
1.322
0.186
curiosity
current
specific
0.020
0.083
0.608
0.543
curiosity
ideal
specific
-0.001
-0.004
-0.027
0.978
aesthetic
current
general
0.019
0.190
1.735
0.083
aesthetic
ideal
general
-0.002
-0.146
-1.470
0.142
aesthetic
current
specific
0.004
0.027
0.292
0.771
aesthetic
ideal
specific
0.001
0.073
0.705
0.481
imagination
current
general
-0.015
-0.044
-0.440
0.660
imagination
ideal
general
0.010
0.041
0.447
0.655
imagination
current
specific
-0.088
-0.184
-1.878
0.060
imagination
ideal
specific
-0.014
-0.042
-0.443
0.658
Looking at the facets, we see five covariances that significantly differ from zero (at p < .05):
- For sociability and assertiveness, changes in the current-level the specific facet change goal (both effects barely significant).
- For productiveness, changes in the current-level the specific facet change goal.
- Changes in current-level depression and volatility covary with the respective specific facet change goal.
6.5 H5: Acceptance goals and change in personality (current / ideal) in self-acceptance group
Not specifically preregistered for study 2 because we were foremost interested in the moderation hypothesis (H7 in prereg / H3 in paper) and thought that it was somewhat redundant with these models of correlations with the change score. I still ran the models for study 2 here (without the control group and for changes between T1 and T2) in case the comparison with study 1 is of interest.
In the self-acceptance group, there will be a correlation between acceptance goals and change in ideal-self ratings but not change in current-self ratings.
We will test this one domain/facet at a time. We will use both general continuous change goal score as well as trait-specific change goals. To test this hypothesis, we will estimate the mean-level difference across time for both current and ideal trait ratings using latent change models and correlate change goals with the change variable from those models.
6.5.1.1 Extraversion - current-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_curr_hyp5 <-'extra_t1 =~ 1*extra_curr_par1_t1 + lamb2*extra_curr_par2_t1 + lamb3*extra_curr_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_curr_par1_t2 + lamb2*extra_curr_par2_t2 + lamb3*extra_curr_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsextra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableextra_curr_par1_t1 ~~ extra_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_curr_par2_t1 ~~ extra_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_curr_par3_t1 ~~ extra_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_curr_par1_t1 ~~ res1*extra_curr_par1_t1 # This allows residual variance on indicator X1 at T1 extra_curr_par2_t1 ~~ res2*extra_curr_par2_t1 # This allows residual variance on indicator X2 at T1extra_curr_par3_t1 ~~ res3*extra_curr_par3_t1 # This allows residual variance on indicator X3 at T1extra_curr_par1_t2 ~~ res1*extra_curr_par1_t2 # This allows residual variance on indicator X1 at T2 extra_curr_par2_t2 ~~ res2*extra_curr_par2_t2 # This allows residual variance on indicator X2 at T2 extra_curr_par3_t2 ~~ res3*extra_curr_par3_t2 # This allows residual variance on indicator X3 at T2extra_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_extra_curr_hyp5 <-lavaan(mi_lcs_extra_curr_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_curr_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of general acceptance goal with the extraversion change score (current-self) is not significantly different from zero, r = 0.037, p = 0.656.
6.5.1.2 Extraversion - ideal-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_ideal_hyp5 <-'extra_t1 =~ 1*extra_ideal_par1_t1 + lamb2*extra_ideal_par2_t1 + lamb3*extra_ideal_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_ideal_par1_t2 + lamb2*extra_ideal_par2_t2 + lamb3*extra_ideal_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsextra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableextra_ideal_par1_t1 ~~ extra_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_ideal_par2_t1 ~~ extra_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_ideal_par3_t1 ~~ extra_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_ideal_par1_t1 ~~ res1*extra_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 extra_ideal_par2_t1 ~~ res2*extra_ideal_par2_t1 # This allows residual variance on indicator X2 at T1extra_ideal_par3_t1 ~~ res3*extra_ideal_par3_t1 # This allows residual variance on indicator X3 at T1extra_ideal_par1_t2 ~~ res1*extra_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 extra_ideal_par2_t2 ~~ res2*extra_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 extra_ideal_par3_t2 ~~ res3*extra_ideal_par3_t2 # This allows residual variance on indicator X3 at T2extra_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_extra_ideal_hyp5 <-lavaan(mi_lcs_extra_ideal_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_ideal_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_curr_specif_hyp5 <-'extra_t1 =~ 1*extra_curr_par1_t1 + lamb2*extra_curr_par2_t1 + lamb3*extra_curr_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_curr_par1_t2 + lamb2*extra_curr_par2_t2 + lamb3*extra_curr_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_01_t1 + sa07_02_t1 + sa07_03_t1 # latent acceptance goal variable (three facets per trait)extra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableextra_curr_par1_t1 ~~ extra_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_curr_par2_t1 ~~ extra_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_curr_par3_t1 ~~ extra_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_curr_par1_t1 ~~ res1*extra_curr_par1_t1 # This allows residual variance on indicator X1 at T1 extra_curr_par2_t1 ~~ res2*extra_curr_par2_t1 # This allows residual variance on indicator X2 at T1extra_curr_par3_t1 ~~ res3*extra_curr_par3_t1 # This allows residual variance on indicator X3 at T1extra_curr_par1_t2 ~~ res1*extra_curr_par1_t2 # This allows residual variance on indicator X1 at T2 extra_curr_par2_t2 ~~ res2*extra_curr_par2_t2 # This allows residual variance on indicator X2 at T2 extra_curr_par3_t2 ~~ res3*extra_curr_par3_t2 # This allows residual variance on indicator X3 at T2extra_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_01_t1 ~~ sa07_01_t1sa07_02_t1 ~~ sa07_02_t1sa07_03_t1 ~~ sa07_03_t1sa07_01_t1 ~ 1sa07_02_t1 ~ 1sa07_03_t1 ~ 1'fit_mi_lcs_extra_curr_specif_hyp5 <-lavaan(mi_lcs_extra_curr_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_curr_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with extraversion change score (current-self) is not significantly different from zero, r = -0.155, p = 0.238.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_extra_ideal_specif_hyp5 <-'extra_t1 =~ 1*extra_ideal_par1_t1 + lamb2*extra_ideal_par2_t1 + lamb3*extra_ideal_par3_t1 # This specifies the measurement model for extra_t1 extra_t2 =~ 1*extra_ideal_par1_t2 + lamb2*extra_ideal_par2_t2 + lamb3*extra_ideal_par3_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_01_t1 + sa07_02_t1 + sa07_03_t1 # latent acceptance goal variable (three facets per trait)extra_t2 ~ 1*extra_t1 # This parameter regresses extra_t2 perfectly on extra_t1d_extra_1 =~ 1*extra_t2 # This defines the latent change score factor as measured perfectly by scores on extra_t2extra_t2 ~ 0*1 # This line constrains the intercept of extra_t2 to 0extra_t2 ~~ 0*extra_t2 # This fixes the variance of extra_t2 to 0d_extra_1 ~ 1 # This estimates the intercept of the change score extra_t1 ~ 1 # This estimates the intercept of extra_t1 d_extra_1 ~~ d_extra_1 # This estimates the variance of the change scores extra_t1 ~~ extra_t1 # This estimates the variance of the extra_t1 d_extra_1 ~ extra_t1 # This estimates the self-feedback parameterd_extra_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableextra_ideal_par1_t1 ~~ extra_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2extra_ideal_par2_t1 ~~ extra_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2extra_ideal_par3_t1 ~~ extra_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2extra_ideal_par1_t1 ~~ res1*extra_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 extra_ideal_par2_t1 ~~ res2*extra_ideal_par2_t1 # This allows residual variance on indicator X2 at T1extra_ideal_par3_t1 ~~ res3*extra_ideal_par3_t1 # This allows residual variance on indicator X3 at T1extra_ideal_par1_t2 ~~ res1*extra_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 extra_ideal_par2_t2 ~~ res2*extra_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 extra_ideal_par3_t2 ~~ res3*extra_ideal_par3_t2 # This allows residual variance on indicator X3 at T2extra_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1extra_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1extra_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1extra_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2extra_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2extra_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_01_t1 ~~ sa07_01_t1sa07_02_t1 ~~ sa07_02_t1sa07_03_t1 ~~ sa07_03_t1sa07_01_t1 ~ 1sa07_02_t1 ~ 1sa07_03_t1 ~ 1'fit_mi_lcs_extra_ideal_specif_hyp5 <-lavaan(mi_lcs_extra_ideal_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_extra_ideal_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with extraversion change score (ideal-self) is not significantly different from zero, r = -0.05, p = 0.658.
6.5.1.5 Agreeableness - current-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_curr_hyp5 <-'agree_t1 =~ 1*agree_curr_par1_t1 + lamb2*agree_curr_par2_t1 + lamb3*agree_curr_par3_t1 # This specifies the measurement model for agree_t1agree_t2 =~ 1*agree_curr_par1_t2 + lamb2*agree_curr_par2_t2 + lamb3*agree_curr_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsagree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableagree_curr_par1_t1 ~~ agree_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_curr_par2_t1 ~~ agree_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_curr_par3_t1 ~~ agree_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_curr_par1_t1 ~~ res1*agree_curr_par1_t1 # This allows residual variance on indicator X1 at T1 agree_curr_par2_t1 ~~ res2*agree_curr_par2_t1 # This allows residual variance on indicator X2 at T1agree_curr_par3_t1 ~~ res3*agree_curr_par3_t1 # This allows residual variance on indicator X3 at T1agree_curr_par1_t2 ~~ res1*agree_curr_par1_t2 # This allows residual variance on indicator X1 at T2 agree_curr_par2_t2 ~~ res2*agree_curr_par2_t2 # This allows residual variance on indicator X2 at T2 agree_curr_par3_t2 ~~ res3*agree_curr_par3_t2 # This allows residual variance on indicator X3 at T2agree_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_agree_curr_hyp5 <-lavaan(mi_lcs_agree_curr_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_curr_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with agreeableness change score (current-self) is not significantly different from zero, r = -0.043, p = 0.545.
6.5.1.6 Agreeableness - ideal-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_ideal_hyp5 <-'agree_t1 =~ 1*agree_ideal_par1_t1 + lamb2*agree_ideal_par2_t1 + lamb3*agree_ideal_par3_t1 # This specifies the measurement model for agree_t1 agree_t2 =~ 1*agree_ideal_par1_t2 + lamb2*agree_ideal_par2_t2 + lamb3*agree_ideal_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsagree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableagree_ideal_par1_t1 ~~ agree_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_ideal_par2_t1 ~~ agree_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_ideal_par3_t1 ~~ agree_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_ideal_par1_t1 ~~ res1*agree_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 agree_ideal_par2_t1 ~~ res2*agree_ideal_par2_t1 # This allows residual variance on indicator X2 at T1agree_ideal_par3_t1 ~~ res3*agree_ideal_par3_t1 # This allows residual variance on indicator X3 at T1agree_ideal_par1_t2 ~~ res1*agree_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 agree_ideal_par2_t2 ~~ res2*agree_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 agree_ideal_par3_t2 ~~ res3*agree_ideal_par3_t2 # This allows residual variance on indicator X3 at T2agree_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_agree_ideal_hyp5 <-lavaan(mi_lcs_agree_ideal_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_ideal_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_curr_specif_hyp5 <-'agree_t1 =~ 1*agree_curr_par1_t1 + lamb2*agree_curr_par2_t1 + lamb3*agree_curr_par3_t1 # This specifies the measurement model for agree_t1agree_t2 =~ 1*agree_curr_par1_t2 + lamb2*agree_curr_par2_t2 + lamb3*agree_curr_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_04_t1 + sa07_05_t1 + sa07_06_t1 # latent acceptance goal variable (three facets per trait)agree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableagree_curr_par1_t1 ~~ agree_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_curr_par2_t1 ~~ agree_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_curr_par3_t1 ~~ agree_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_curr_par1_t1 ~~ res1*agree_curr_par1_t1 # This allows residual variance on indicator X1 at T1 agree_curr_par2_t1 ~~ res2*agree_curr_par2_t1 # This allows residual variance on indicator X2 at T1agree_curr_par3_t1 ~~ res3*agree_curr_par3_t1 # This allows residual variance on indicator X3 at T1agree_curr_par1_t2 ~~ res1*agree_curr_par1_t2 # This allows residual variance on indicator X1 at T2 agree_curr_par2_t2 ~~ res2*agree_curr_par2_t2 # This allows residual variance on indicator X2 at T2 agree_curr_par3_t2 ~~ res3*agree_curr_par3_t2 # This allows residual variance on indicator X3 at T2agree_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_04_t1 ~~ sa07_04_t1sa07_05_t1 ~~ sa07_05_t1sa07_06_t1 ~~ sa07_06_t1sa07_04_t1 ~ 1sa07_05_t1 ~ 1sa07_06_t1 ~ 1'fit_mi_lcs_agree_curr_specif_hyp5 <-lavaan(mi_lcs_agree_curr_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_curr_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with agreeableness change score (current-self) is significantly different from zero, r = -0.309, p = 0.017.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_agree_ideal_specif_hyp5 <-'agree_t1 =~ 1*agree_ideal_par1_t1 + lamb2*agree_ideal_par2_t1 + lamb3*agree_ideal_par3_t1 # This specifies the measurement model for agree_t1 agree_t2 =~ 1*agree_ideal_par1_t2 + lamb2*agree_ideal_par2_t2 + lamb3*agree_ideal_par3_t2 # This specifies the measurement model for agree_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_04_t1 + sa07_05_t1 + sa07_06_t1 # latent acceptance goal variable (three facets per trait)agree_t2 ~ 1*agree_t1 # This parameter regresses agree_t2 perfectly on agree_t1d_agree_1 =~ 1*agree_t2 # This defines the latent change score factor as measured perfectly by scores on agree_t2agree_t2 ~ 0*1 # This line constrains the intercept of agree_t2 to 0agree_t2 ~~ 0*agree_t2 # This fixes the variance of agree_t2 to 0d_agree_1 ~ 1 # This estimates the intercept of the change score agree_t1 ~ 1 # This estimates the intercept of agree_t1 d_agree_1 ~~ d_agree_1 # This estimates the variance of the change scores agree_t1 ~~ agree_t1 # This estimates the variance of the agree_t1 d_agree_1 ~ agree_t1 # This estimates the self-feedback parameterd_agree_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableagree_ideal_par1_t1 ~~ agree_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2agree_ideal_par2_t1 ~~ agree_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2agree_ideal_par3_t1 ~~ agree_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2agree_ideal_par1_t1 ~~ res1*agree_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 agree_ideal_par2_t1 ~~ res2*agree_ideal_par2_t1 # This allows residual variance on indicator X2 at T1agree_ideal_par3_t1 ~~ res3*agree_ideal_par3_t1 # This allows residual variance on indicator X3 at T1agree_ideal_par1_t2 ~~ res1*agree_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 agree_ideal_par2_t2 ~~ res2*agree_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 agree_ideal_par3_t2 ~~ res3*agree_ideal_par3_t2 # This allows residual variance on indicator X3 at T2agree_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1agree_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1agree_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1agree_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2agree_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2agree_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_04_t1 ~~ sa07_04_t1sa07_05_t1 ~~ sa07_05_t1sa07_06_t1 ~~ sa07_06_t1sa07_04_t1 ~ 1sa07_05_t1 ~ 1sa07_06_t1 ~ 1'fit_mi_lcs_agree_ideal_specif_hyp5 <-lavaan(mi_lcs_agree_ideal_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_agree_ideal_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with agreeableness change score (ideal-self) is not significantly different from zero, r = -0.1, p = 0.277.
6.5.1.9 Conscientiousness - current-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_curr_hyp5 <-'consc_t1 =~ 1*consc_curr_par1_t1 + lamb2*consc_curr_par2_t1 + lamb3*consc_curr_par3_t1 # This specifies the measurement model for consc_t1 consc_t2 =~ 1*consc_curr_par1_t2 + lamb2*consc_curr_par2_t2 + lamb3*consc_curr_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsconsc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableconsc_curr_par1_t1 ~~ consc_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_curr_par2_t1 ~~ consc_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_curr_par3_t1 ~~ consc_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_curr_par1_t1 ~~ res1*consc_curr_par1_t1 # This allows residual variance on indicator X1 at T1 consc_curr_par2_t1 ~~ res2*consc_curr_par2_t1 # This allows residual variance on indicator X2 at T1consc_curr_par3_t1 ~~ res3*consc_curr_par3_t1 # This allows residual variance on indicator X3 at T1consc_curr_par1_t2 ~~ res1*consc_curr_par1_t2 # This allows residual variance on indicator X1 at T2 consc_curr_par2_t2 ~~ res2*consc_curr_par2_t2 # This allows residual variance on indicator X2 at T2 consc_curr_par3_t2 ~~ res3*consc_curr_par3_t2 # This allows residual variance on indicator X3 at T2consc_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_consc_curr_hyp5 <-lavaan(mi_lcs_consc_curr_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_curr_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with conscientiousness change score (current-self) is not significantly different from zero, r = -0.104, p = 0.156.
6.5.1.10 Conscientiousness - ideal-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_ideal_hyp5 <-'consc_t1 =~ 1*consc_ideal_par1_t1 + lamb2*consc_ideal_par2_t1 + lamb3*consc_ideal_par3_t1 # This specifies the measurement model for consc_t1consc_t2 =~ 1*consc_ideal_par1_t2 + lamb2*consc_ideal_par2_t2 + lamb3*consc_ideal_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsconsc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableconsc_ideal_par1_t1 ~~ consc_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_ideal_par2_t1 ~~ consc_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_ideal_par3_t1 ~~ consc_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_ideal_par1_t1 ~~ res1*consc_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 consc_ideal_par2_t1 ~~ res2*consc_ideal_par2_t1 # This allows residual variance on indicator X2 at T1consc_ideal_par3_t1 ~~ res3*consc_ideal_par3_t1 # This allows residual variance on indicator X3 at T1consc_ideal_par1_t2 ~~ res1*consc_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 consc_ideal_par2_t2 ~~ res2*consc_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 consc_ideal_par3_t2 ~~ res3*consc_ideal_par3_t2 # This allows residual variance on indicator X3 at T2consc_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_consc_ideal_hyp5 <-lavaan(mi_lcs_consc_ideal_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_ideal_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with conscientiousness change score (ideal-self) is not significantly different from zero, r = 0.065, p = 0.297.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_curr_specif_hyp5 <-'consc_t1 =~ 1*consc_curr_par1_t1 + lamb2*consc_curr_par2_t1 + lamb3*consc_curr_par3_t1 # This specifies the measurement model for consc_t1 consc_t2 =~ 1*consc_curr_par1_t2 + lamb2*consc_curr_par2_t2 + lamb3*consc_curr_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_07_t1 + sa07_08_t1 + sa07_09_t1 # latent acceptance goal variable (three facets per trait)consc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableconsc_curr_par1_t1 ~~ consc_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_curr_par2_t1 ~~ consc_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_curr_par3_t1 ~~ consc_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_curr_par1_t1 ~~ res1*consc_curr_par1_t1 # This allows residual variance on indicator X1 at T1 consc_curr_par2_t1 ~~ res2*consc_curr_par2_t1 # This allows residual variance on indicator X2 at T1consc_curr_par3_t1 ~~ res3*consc_curr_par3_t1 # This allows residual variance on indicator X3 at T1consc_curr_par1_t2 ~~ res1*consc_curr_par1_t2 # This allows residual variance on indicator X1 at T2 consc_curr_par2_t2 ~~ res2*consc_curr_par2_t2 # This allows residual variance on indicator X2 at T2 consc_curr_par3_t2 ~~ res3*consc_curr_par3_t2 # This allows residual variance on indicator X3 at T2consc_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_07_t1 ~~ sa07_07_t1sa07_08_t1 ~~ sa07_08_t1sa07_09_t1 ~~ sa07_09_t1sa07_07_t1 ~ 1sa07_08_t1 ~ 1sa07_09_t1 ~ 1'fit_mi_lcs_consc_curr_specif_hyp5 <-lavaan(mi_lcs_consc_curr_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_curr_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
The correlation of specific, facet-level acceptance goals with the conscientiousness change score (current-self) is not significantly different from zero, r = -0.167, p = 0.088.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_consc_ideal_specif_hyp5 <-'consc_t1 =~ 1*consc_ideal_par1_t1 + lamb2*consc_ideal_par2_t1 + lamb3*consc_ideal_par3_t1 # This specifies the measurement model for consc_t1consc_t2 =~ 1*consc_ideal_par1_t2 + lamb2*consc_ideal_par2_t2 + lamb3*consc_ideal_par3_t2 # This specifies the measurement model for consc_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_07_t1 + sa07_08_t1 + sa07_09_t1 # latent acceptance goal variable (three facets per trait)consc_t2 ~ 1*consc_t1 # This parameter regresses consc_t2 perfectly on consc_t1d_consc_1 =~ 1*consc_t2 # This defines the latent change score factor as measured perfectly by scores on consc_t2consc_t2 ~ 0*1 # This line constrains the intercept of consc_t2 to 0consc_t2 ~~ 0*consc_t2 # This fixes the variance of consc_t2 to 0d_consc_1 ~ 1 # This estimates the intercept of the change score consc_t1 ~ 1 # This estimates the intercept of consc_t1 d_consc_1 ~~ d_consc_1 # This estimates the variance of the change scores consc_t1 ~~ consc_t1 # This estimates the variance of the consc_t1 d_consc_1 ~ consc_t1 # This estimates the self-feedback parameterd_consc_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableconsc_ideal_par1_t1 ~~ consc_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2consc_ideal_par2_t1 ~~ consc_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2consc_ideal_par3_t1 ~~ consc_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2consc_ideal_par1_t1 ~~ res1*consc_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 consc_ideal_par2_t1 ~~ res2*consc_ideal_par2_t1 # This allows residual variance on indicator X2 at T1consc_ideal_par3_t1 ~~ res3*consc_ideal_par3_t1 # This allows residual variance on indicator X3 at T1consc_ideal_par1_t2 ~~ res1*consc_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 consc_ideal_par2_t2 ~~ res2*consc_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 consc_ideal_par3_t2 ~~ res3*consc_ideal_par3_t2 # This allows residual variance on indicator X3 at T2consc_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1consc_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1consc_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1consc_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2consc_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2consc_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_07_t1 ~~ sa07_07_t1sa07_08_t1 ~~ sa07_08_t1sa07_09_t1 ~~ sa07_09_t1sa07_07_t1 ~ 1sa07_08_t1 ~ 1sa07_09_t1 ~ 1'fit_mi_lcs_consc_ideal_specif_hyp5 <-lavaan(mi_lcs_consc_ideal_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_consc_ideal_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
The correlation of specific, facet-level acceptance goals with the conscientiousness change score (ideal-self) is (barely) significantly different from zero, r = -0.162, p = 0.042.
6.5.1.13 Neuroticism - current-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_curr_hyp5 <-'neuro_t1 =~ 1*neuro_curr_par1_t1 + lamb2*neuro_curr_par2_t1 + lamb3*neuro_curr_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_curr_par1_t2 + lamb2*neuro_curr_par2_t2 + lamb3*neuro_curr_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsneuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableneuro_curr_par1_t1 ~~ neuro_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_curr_par2_t1 ~~ neuro_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_curr_par3_t1 ~~ neuro_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_curr_par1_t1 ~~ res1*neuro_curr_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_curr_par2_t1 ~~ res2*neuro_curr_par2_t1 # This allows residual variance on indicator X2 at T1neuro_curr_par3_t1 ~~ res3*neuro_curr_par3_t1 # This allows residual variance on indicator X3 at T1neuro_curr_par1_t2 ~~ res1*neuro_curr_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_curr_par2_t2 ~~ res2*neuro_curr_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_curr_par3_t2 ~~ res3*neuro_curr_par3_t2 # This allows residual variance on indicator X3 at T2neuro_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_neuro_curr_hyp5 <-lavaan(mi_lcs_neuro_curr_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_curr_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with neuroticism change score (current-self) is not significantly different from zero, r = -0.071, p = 0.279.
6.5.1.14 Neuroticism - ideal-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_ideal_hyp5 <-'neuro_t1 =~ 1*neuro_ideal_par1_t1 + lamb2*neuro_ideal_par2_t1 + lamb3*neuro_ideal_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_ideal_par1_t2 + lamb2*neuro_ideal_par2_t2 + lamb3*neuro_ideal_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsneuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableneuro_ideal_par1_t1 ~~ neuro_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_ideal_par2_t1 ~~ neuro_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_ideal_par3_t1 ~~ neuro_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_ideal_par1_t1 ~~ res1*neuro_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_ideal_par2_t1 ~~ res2*neuro_ideal_par2_t1 # This allows residual variance on indicator X2 at T1neuro_ideal_par3_t1 ~~ res3*neuro_ideal_par3_t1 # This allows residual variance on indicator X3 at T1neuro_ideal_par1_t2 ~~ res1*neuro_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_ideal_par2_t2 ~~ res2*neuro_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_ideal_par3_t2 ~~ res3*neuro_ideal_par3_t2 # This allows residual variance on indicator X3 at T2neuro_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_neuro_ideal_hyp5 <-lavaan(mi_lcs_neuro_ideal_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_ideal_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_curr_specif_hyp5 <-'neuro_t1 =~ 1*neuro_curr_par1_t1 + lamb2*neuro_curr_par2_t1 + lamb3*neuro_curr_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_curr_par1_t2 + lamb2*neuro_curr_par2_t2 + lamb3*neuro_curr_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_10_t1 + sa07_11_t1 + sa07_12_t1 # latent acceptance goal variable (three facets per trait)neuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableneuro_curr_par1_t1 ~~ neuro_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_curr_par2_t1 ~~ neuro_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_curr_par3_t1 ~~ neuro_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_curr_par1_t1 ~~ res1*neuro_curr_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_curr_par2_t1 ~~ res2*neuro_curr_par2_t1 # This allows residual variance on indicator X2 at T1neuro_curr_par3_t1 ~~ res3*neuro_curr_par3_t1 # This allows residual variance on indicator X3 at T1neuro_curr_par1_t2 ~~ res1*neuro_curr_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_curr_par2_t2 ~~ res2*neuro_curr_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_curr_par3_t2 ~~ res3*neuro_curr_par3_t2 # This allows residual variance on indicator X3 at T2neuro_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_10_t1 ~~ sa07_10_t1sa07_11_t1 ~~ sa07_11_t1sa07_12_t1 ~~ sa07_12_t1sa07_10_t1 ~ 1sa07_11_t1 ~ 1sa07_12_t1 ~ 1'fit_mi_lcs_neuro_curr_specif_hyp5 <-lavaan(mi_lcs_neuro_curr_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_curr_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with neuroticism change score (current-self) is (barely) significantly different from zero, r = 0.186, p = 0.034.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_neuro_ideal_specif_hyp5 <-'neuro_t1 =~ 1*neuro_ideal_par1_t1 + lamb2*neuro_ideal_par2_t1 + lamb3*neuro_ideal_par3_t1 # This specifies the measurement model for neuro_t1 neuro_t2 =~ 1*neuro_ideal_par1_t2 + lamb2*neuro_ideal_par2_t2 + lamb3*neuro_ideal_par3_t2 # This specifies the measurement model for neuro_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_10_t1 + sa07_11_t1 + sa07_12_t1 # latent acceptance goal variable (three facets per trait)neuro_t2 ~ 1*neuro_t1 # This parameter regresses neuro_t2 perfectly on neuro_t1d_neuro_1 =~ 1*neuro_t2 # This defines the latent change score factor as measured perfectly by scores on neuro_t2neuro_t2 ~ 0*1 # This line constrains the intercept of neuro_t2 to 0neuro_t2 ~~ 0*neuro_t2 # This fixes the variance of neuro_t2 to 0d_neuro_1 ~ 1 # This estimates the intercept of the change score neuro_t1 ~ 1 # This estimates the intercept of neuro_t1 d_neuro_1 ~~ d_neuro_1 # This estimates the variance of the change scores neuro_t1 ~~ neuro_t1 # This estimates the variance of the neuro_t1 d_neuro_1 ~ neuro_t1 # This estimates the self-feedback parameterd_neuro_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableneuro_ideal_par1_t1 ~~ neuro_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2neuro_ideal_par2_t1 ~~ neuro_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2neuro_ideal_par3_t1 ~~ neuro_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2neuro_ideal_par1_t1 ~~ res1*neuro_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 neuro_ideal_par2_t1 ~~ res2*neuro_ideal_par2_t1 # This allows residual variance on indicator X2 at T1neuro_ideal_par3_t1 ~~ res3*neuro_ideal_par3_t1 # This allows residual variance on indicator X3 at T1neuro_ideal_par1_t2 ~~ res1*neuro_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 neuro_ideal_par2_t2 ~~ res2*neuro_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 neuro_ideal_par3_t2 ~~ res3*neuro_ideal_par3_t2 # This allows residual variance on indicator X3 at T2neuro_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1neuro_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1neuro_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1neuro_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2neuro_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2neuro_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_10_t1 ~~ sa07_10_t1sa07_11_t1 ~~ sa07_11_t1sa07_12_t1 ~~ sa07_12_t1sa07_10_t1 ~ 1sa07_11_t1 ~ 1sa07_12_t1 ~ 1'fit_mi_lcs_neuro_ideal_specif_hyp5 <-lavaan(mi_lcs_neuro_ideal_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_neuro_ideal_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
The correlation of specific, facet-level acceptance goals with the neuroticism change score (ideal-self) is not significantly different from zero, r = 0.009, p = 0.908.
6.5.1.17 Openness - current-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_curr_hyp5 <-'openn_t1 =~ 1*openn_curr_par1_t1 + lamb2*openn_curr_par2_t1 + lamb3*openn_curr_par3_t1 # This specifies the measurement model for openn_t1openn_t2 =~ 1*openn_curr_par1_t2 + lamb2*openn_curr_par2_t2 + lamb3*openn_curr_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsopenn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableopenn_curr_par1_t1 ~~ openn_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_curr_par2_t1 ~~ openn_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_curr_par3_t1 ~~ openn_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_curr_par1_t1 ~~ res1*openn_curr_par1_t1 # This allows residual variance on indicator X1 at T1 openn_curr_par2_t1 ~~ res2*openn_curr_par2_t1 # This allows residual variance on indicator X2 at T1openn_curr_par3_t1 ~~ res3*openn_curr_par3_t1 # This allows residual variance on indicator X3 at T1openn_curr_par1_t2 ~~ res1*openn_curr_par1_t2 # This allows residual variance on indicator X1 at T2 openn_curr_par2_t2 ~~ res2*openn_curr_par2_t2 # This allows residual variance on indicator X2 at T2 openn_curr_par3_t2 ~~ res3*openn_curr_par3_t2 # This allows residual variance on indicator X3 at T2openn_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_openn_curr_hyp5 <-lavaan(mi_lcs_openn_curr_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_curr_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with openness change score (current-self) is not significantly different from zero, r = -0.067, p = 0.427.
6.5.1.18 Openness - ideal-self: general acceptance goals
Fit model:
Show the code
# adding correlation with manifest acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_ideal_hyp5 <-'openn_t1 =~ 1*openn_ideal_par1_t1 + lamb2*openn_ideal_par2_t1 + lamb3*openn_ideal_par3_t1 # This specifies the measurement model for openn_t1 openn_t2 =~ 1*openn_ideal_par1_t2 + lamb2*openn_ideal_par2_t2 + lamb3*openn_ideal_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsopenn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ sa06_01_t1 # estimates the covariance/correlation with acceptance goal variableopenn_ideal_par1_t1 ~~ openn_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_ideal_par2_t1 ~~ openn_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_ideal_par3_t1 ~~ openn_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_ideal_par1_t1 ~~ res1*openn_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 openn_ideal_par2_t1 ~~ res2*openn_ideal_par2_t1 # This allows residual variance on indicator X2 at T1openn_ideal_par3_t1 ~~ res3*openn_ideal_par3_t1 # This allows residual variance on indicator X3 at T1openn_ideal_par1_t2 ~~ res1*openn_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 openn_ideal_par2_t2 ~~ res2*openn_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 openn_ideal_par3_t2 ~~ res3*openn_ideal_par3_t2 # This allows residual variance on indicator X3 at T2openn_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa06_01_t1 ~~ sa06_01_t1sa06_01_t1 ~ 1'fit_mi_lcs_openn_ideal_hyp5 <-lavaan(mi_lcs_openn_ideal_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing="fiml")summary(fit_mi_lcs_openn_ideal_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (sa06_01_t1 = general acceptance goal):
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_curr_specif_hyp5 <-'openn_t1 =~ 1*openn_curr_par1_t1 + lamb2*openn_curr_par2_t1 + lamb3*openn_curr_par3_t1 # This specifies the measurement model for openn_t1openn_t2 =~ 1*openn_curr_par1_t2 + lamb2*openn_curr_par2_t2 + lamb3*openn_curr_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_13_t1 + sa07_14_t1 + sa07_15_t1 # latent acceptance goal variable (three facets per trait)openn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableopenn_curr_par1_t1 ~~ openn_curr_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_curr_par2_t1 ~~ openn_curr_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_curr_par3_t1 ~~ openn_curr_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_curr_par1_t1 ~~ res1*openn_curr_par1_t1 # This allows residual variance on indicator X1 at T1 openn_curr_par2_t1 ~~ res2*openn_curr_par2_t1 # This allows residual variance on indicator X2 at T1openn_curr_par3_t1 ~~ res3*openn_curr_par3_t1 # This allows residual variance on indicator X3 at T1openn_curr_par1_t2 ~~ res1*openn_curr_par1_t2 # This allows residual variance on indicator X1 at T2 openn_curr_par2_t2 ~~ res2*openn_curr_par2_t2 # This allows residual variance on indicator X2 at T2 openn_curr_par3_t2 ~~ res3*openn_curr_par3_t2 # This allows residual variance on indicator X3 at T2openn_curr_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_curr_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_curr_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_curr_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_curr_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_curr_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_13_t1 ~~ sa07_13_t1sa07_14_t1 ~~ sa07_14_t1sa07_15_t1 ~~ sa07_15_t1sa07_13_t1 ~ 1sa07_14_t1 ~ 1sa07_15_t1 ~ 1'fit_mi_lcs_openn_curr_specif_hyp5 <-lavaan(mi_lcs_openn_curr_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')summary(fit_mi_lcs_openn_curr_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with openness change score (current-self) is not significantly different from zero, r = -0.133, p = 0.272.
# adding correlation with latent (made up of the three facets) acceptance goal variable to the latent change score model:# Fit the multiple indicator univariate latent change score modelmi_lcs_openn_ideal_specif_hyp5 <-'openn_t1 =~ 1*openn_ideal_par1_t1 + lamb2*openn_ideal_par2_t1 + lamb3*openn_ideal_par3_t1 # This specifies the measurement model for openn_t1 openn_t2 =~ 1*openn_ideal_par1_t2 + lamb2*openn_ideal_par2_t2 + lamb3*openn_ideal_par3_t2 # This specifies the measurement model for openn_t2 with the equality constrained factor loadingsgoals =~ 1*sa07_13_t1 + sa07_14_t1 + sa07_15_t1 # latent acceptance goal variable (three facets per trait)openn_t2 ~ 1*openn_t1 # This parameter regresses openn_t2 perfectly on openn_t1d_openn_1 =~ 1*openn_t2 # This defines the latent change score factor as measured perfectly by scores on openn_t2openn_t2 ~ 0*1 # This line constrains the intercept of openn_t2 to 0openn_t2 ~~ 0*openn_t2 # This fixes the variance of openn_t2 to 0d_openn_1 ~ 1 # This estimates the intercept of the change score openn_t1 ~ 1 # This estimates the intercept of openn_t1 d_openn_1 ~~ d_openn_1 # This estimates the variance of the change scores openn_t1 ~~ openn_t1 # This estimates the variance of the openn_t1 d_openn_1 ~ openn_t1 # This estimates the self-feedback parameterd_openn_1 ~~ goals # estimates the covariance/correlation with the (latent) acceptance goal variablegoals ~ 0*1 # This fixes the intercept of the (latent) acceptance goal variable to 0goals ~~ goals # This estimates the variance of the (latent) acceptance goal variableopenn_ideal_par1_t1 ~~ openn_ideal_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2openn_ideal_par2_t1 ~~ openn_ideal_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2openn_ideal_par3_t1 ~~ openn_ideal_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2openn_ideal_par1_t1 ~~ res1*openn_ideal_par1_t1 # This allows residual variance on indicator X1 at T1 openn_ideal_par2_t1 ~~ res2*openn_ideal_par2_t1 # This allows residual variance on indicator X2 at T1openn_ideal_par3_t1 ~~ res3*openn_ideal_par3_t1 # This allows residual variance on indicator X3 at T1openn_ideal_par1_t2 ~~ res1*openn_ideal_par1_t2 # This allows residual variance on indicator X1 at T2 openn_ideal_par2_t2 ~~ res2*openn_ideal_par2_t2 # This allows residual variance on indicator X2 at T2 openn_ideal_par3_t2 ~~ res3*openn_ideal_par3_t2 # This allows residual variance on indicator X3 at T2openn_ideal_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1openn_ideal_par2_t1 ~ m2*1 # This estimates the intercept of X2 at T1openn_ideal_par3_t1 ~ m3*1 # This estimates the intercept of X3 at T1openn_ideal_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2openn_ideal_par2_t2 ~ m2*1 # This estimates the intercept of X2 at T2openn_ideal_par3_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa07_13_t1 ~~ sa07_13_t1sa07_14_t1 ~~ sa07_14_t1sa07_15_t1 ~~ sa07_15_t1sa07_13_t1 ~ 1sa07_14_t1 ~ 1sa07_15_t1 ~ 1'fit_mi_lcs_openn_ideal_specif_hyp5 <-lavaan(mi_lcs_openn_ideal_specif_hyp5, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing ="fiml")summary(fit_mi_lcs_openn_ideal_specif_hyp5, fit.measures=TRUE, standardized=TRUE, rsquare=F)
Results summary (goals = trait/facet specific acceptance goal):
The correlation of specific, facet-level acceptance goals with the openness change score (ideal-self) is (barely) significantly different from zero, r = -0.157, p = 0.036.
6.5.2 Big Five facets
Run models for all facets with a template & loop:
Show the code
# create template:facet_template <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)facet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 d_facet_1 ~ facet_t1 # This estimates the self-feedback parameterd_facet_1 ~~ ind_goal # estimates the covariance/correlation with acceptance goal variableind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facetsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# loop across 2 BFI versions (combined pre&post current/ideal)for (j in5:length(bfi_versions)) { items =paste0(bfi_versions[[j]], item_nrs)# loop across 2 different goal operationalizations (sa06_01_t1 & sa07_XX_t1)for (k in1:2) {if (k==1) { goal_op ="sa06_01_t1" } else{ goal_op =paste0("sa07_", str_pad(i-5, 2, pad ="0"), "_t1") } template_filled <-str_replace_all(facet_template, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= goal_op)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa, estimator='mlr', fixed.x=FALSE, missing='fiml')# save to environmentif (k==1) {eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_hyp5")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_hyp5")), facet_model_fit)) } else{eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_specif_hyp5")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[j], 6), "_specif_hyp5")), facet_model_fit)) } } }}
6.5.2.1 Sociability - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of the general acceptance goal with the sociability change score (current-self) is not significantly different from zero, r = 0.09, p = 0.379.
6.5.2.2 Sociability - ideal-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with sociability change score (current-self) is not significantly different from zero, r = -0.119, p = 0.199.
Correlation of specific, facet-level acceptance goals with anxiety change score (ideal-self) is not significantly different from zero, r = -0.239, p = 0.082.
6.5.2.5 Assertiveness - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with assertiveness change score (current-self) is not significantly different from zero, r = -0.018, p = 0.87.
Correlation of specific, facet-level acceptance goals with assertiveness change score (ideal-self) is not significantly different from zero, r = 0.273, p = 0.069.
6.5.2.9 Energy - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with energy change score (current-self) is not significantly different from zero, r = 0.155, p = 0.157.
6.5.2.12 Energy - ideal-self: specific, facet-level acceptance goals
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
Correlation of specific, facet-level acceptance goals with energy change score (ideal-self) is not significantly different from zero, r = -0.035, p = 0.69.
6.5.2.13 Compassion - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with compassion change score (current-self) is (barely) significantly different from zero, r = -0.23, p = 0.04.
Correlation of specific, facet-level acceptance goals with compassion change score (ideal-self) is not significantly different from zero, r = -0.119, p = 0.3.
6.5.2.17 Respectfulness - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with respectfulness change score (current-self) is not significantly different from zero, r = -0.023, p = 0.758.
6.5.2.18 Respectfulness - ideal-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with respectfulness change score (current-self) is significantly different from zero, r = -0.446, p = 0.
Correlation of specific, facet-level acceptance goals with respectfulness change score (ideal-self) is not significantly different from zero, r = -0.156, p = 0.325.
6.5.2.21 Trust - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with trust change score (current-self) is not significantly different from zero, r = -0.198, p = 0.268.
Correlation of specific, facet-level acceptance goals with trust change score (ideal-self) is not significantly different from zero, r = -0.073, p = 0.529.
6.5.2.25 Organization - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of general acceptance goal with organization change score (current-self) is (barely) significantly different from zero, r = 0.185, p = 0.032.
6.5.2.26 Organization - ideal-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of specific, facet-level acceptance goals with the organization change score (current-self) is significantly different from zero, r = 0.311, p = 0.001.
Correlation of specific, facet-level acceptance goals with organization change score (ideal-self) is not significantly different from zero, r = 0.139, p = 0.208.
6.5.2.29 Productiveness - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with productiveness change score (current-self) is not significantly different from zero, r = 0.186, p = 0.067.
Correlation of specific, facet-level acceptance goals with productiveness change score (ideal-self) is not significantly different from zero, r = 0.166, p = 0.074.
6.5.2.33 Responsibility - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of specific, facet-level acceptance goals with the responsibility change score (current-self) is not significantly different from zero, r = -0.185, p = 0.132.
Correlation of specific, facet-level acceptance goals with responsibility change score (ideal-self) is not significantly different from zero, r = -0.155, p = 0.091.
6.5.2.37 Anxiety - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with anxiety change score (current-self) is significantly different from zero, r = -0.269, p = 0.008.
Correlation of specific, facet-level acceptance goals with anxiety change score (ideal-self) is not significantly different from zero, r = -0.042, p = 0.698.
6.5.2.41 Depression - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with depression change score (current-self) is not significantly different from zero, r = -0.156, p = 0.065.
Correlation of specific, facet-level acceptance goals with depression change score (ideal-self) is not significantly different from zero, r = -0.024, p = 0.795.
6.5.2.45 Volatility - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of general acceptance goal with the volatility change score (ideal-self) is not significantly different from zero, r = -0.13, p = 0.261.
Correlation of specific, facet-level acceptance goals with volatility change score (current-self) is not significantly different from zero, r = 0.09, p = 0.43.
Correlation of specific, facet-level acceptance goals with volatility change score (ideal-self) is not significantly different from zero, r = -0.039, p = 0.701.
6.5.2.49 Curiosity - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
The correlation of specific, facet-level acceptance goals with the curiosity change score (current-self) is not significantly different from zero, r = 0.146, p = 0.413.
Correlation of specific, facet-level acceptance goals with curiosity change score (ideal-self) is not significantly different from zero, r = -0.076, p = 0.517.
6.5.2.53 Aesthetic - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with aesthetic change score (current-self) is (barely) significantly different from zero, r = 0.233, p = 0.047.
Correlation of specific, facet-level acceptance goals with aesthetic change score (ideal-self) is not significantly different from zero, r = 0.093, p = 0.277.
6.5.2.57 Imagination - current-self: general acceptance goals
Results summary (sa06_01_t1 = general acceptance goal):
Correlation of specific, facet-level acceptance goals with imagination change score (current-self) is not significantly different from zero, r = -0.2, p = 0.09.
Correlation of specific, facet-level acceptance goals with imagination change score (ideal-self) is not significantly different from zero, r = -0.174, p = 0.07.
Results summary across the Big Five traits: covariance of the latent change score and acceptance goal(s)
kable(df_table_hyp5[1:20, ], digits =3)
trait
ref
goal
estimate
std.all
statistic
p.value
extraversion
current
general
0.008
0.037
0.446
0.656
extraversion
ideal
general
0.016
0.073
0.778
0.437
extraversion
current
specific
-0.035
-0.155
-1.181
0.238
extraversion
ideal
specific
-0.011
-0.050
-0.443
0.658
agreeableness
current
general
-0.008
-0.043
-0.605
0.545
agreeableness
ideal
general
0.000
-0.002
-0.020
0.984
agreeableness
current
specific
-0.059
-0.309
-2.392
0.017
agreeableness
ideal
specific
-0.024
-0.100
-1.087
0.277
conscientiousness
current
general
-0.031
-0.104
-1.418
0.156
conscientiousness
ideal
general
0.017
0.065
1.044
0.297
conscientiousness
current
specific
-0.062
-0.167
-1.707
0.088
conscientiousness
ideal
specific
-0.050
-0.162
-2.036
0.042
neuroticism
current
general
-0.023
-0.071
-1.082
0.279
neuroticism
ideal
general
-0.016
-0.056
-0.681
0.496
neuroticism
current
specific
0.066
0.186
2.121
0.034
neuroticism
ideal
specific
0.003
0.009
0.116
0.908
openness
current
general
-0.014
-0.067
-0.794
0.427
openness
ideal
general
-0.025
-0.143
-1.941
0.052
openness
current
specific
-0.024
-0.133
-1.099
0.272
openness
ideal
specific
-0.024
-0.157
-2.101
0.036
Four covariances significantly differ from zero (at p < .05):
changes in current-level agreeableness covary with the specific acceptance goals (latent factor of the three A facets)
changes in ideal-level conscientiousness covary with the specific acceptance goals (latent factor of the three C facets)
changes in current-level neuroticism covary with the specific acceptance goals (latent factor of the three N facets)
changes in ideal-level openness covary with the specific acceptance goals (latent factor of the three O facets)
-> unexpected direction of effects!
Results summary across the Big Five facets: covariance of the latent change score and acceptance goal(s)
kable(df_table_hyp5[21:80, ], digits =3)
trait
ref
goal
estimate
std.all
statistic
p.value
sociability
current
general
0.032
0.090
0.879
0.379
sociability
ideal
general
-0.020
-0.118
-0.742
0.458
sociability
current
specific
-0.066
-0.119
-1.284
0.199
sociability
ideal
specific
-0.059
-0.239
-1.742
0.082
assertiveness
current
general
-0.009
-0.041
-0.457
0.648
assertiveness
ideal
general
0.035
0.240
1.826
0.068
assertiveness
current
specific
-0.006
-0.018
-0.164
0.870
assertiveness
ideal
specific
0.060
0.273
1.817
0.069
energy
current
general
0.003
0.019
0.245
0.806
energy
ideal
general
-0.009
-0.067
-0.781
0.435
energy
current
specific
0.038
0.155
1.415
0.157
energy
ideal
specific
-0.007
-0.035
-0.398
0.690
compassion
current
general
-0.039
-0.112
-1.236
0.216
compassion
ideal
general
-0.005
-0.015
-0.138
0.890
compassion
current
specific
-0.131
-0.230
-2.053
0.040
compassion
ideal
specific
-0.060
-0.119
-1.036
0.300
respectfulness
current
general
-0.007
-0.023
-0.308
0.758
respectfulness
ideal
general
-0.004
-0.030
-0.209
0.834
respectfulness
current
specific
-0.195
-0.446
-3.818
0.000
respectfulness
ideal
specific
-0.030
-0.156
-0.984
0.325
trust
current
general
-0.007
-0.040
-0.283
0.777
trust
ideal
general
-0.008
-0.038
-0.371
0.710
trust
current
specific
-0.055
-0.198
-1.108
0.268
trust
ideal
specific
-0.025
-0.073
-0.629
0.529
organization
current
general
0.074
0.185
2.143
0.032
organization
ideal
general
0.003
0.013
0.139
0.889
organization
current
specific
0.213
0.311
3.323
0.001
organization
ideal
specific
0.051
0.139
1.259
0.208
productiveness
current
general
0.031
0.092
1.111
0.267
productiveness
ideal
general
-0.006
-0.029
-0.374
0.708
productiveness
current
specific
0.100
0.186
1.833
0.067
productiveness
ideal
specific
0.050
0.166
1.789
0.074
responsibility
current
general
-0.009
-0.060
-0.668
0.504
responsibility
ideal
general
0.035
0.147
1.685
0.092
responsibility
current
specific
-0.048
-0.185
-1.505
0.132
responsibility
ideal
specific
-0.059
-0.155
-1.689
0.091
anxiety
current
general
0.027
0.075
0.778
0.437
anxiety
ideal
general
0.012
0.065
0.469
0.639
anxiety
current
specific
-0.165
-0.269
-2.652
0.008
anxiety
ideal
specific
-0.013
-0.042
-0.387
0.698
depression
current
general
0.006
0.025
0.327
0.744
depression
ideal
general
0.002
0.011
0.106
0.916
depression
current
specific
-0.063
-0.156
-1.847
0.065
depression
ideal
specific
-0.008
-0.024
-0.259
0.795
volatility
current
general
0.015
0.044
0.444
0.657
volatility
ideal
general
-0.028
-0.130
-1.124
0.261
volatility
current
specific
0.045
0.090
0.789
0.430
volatility
ideal
specific
-0.012
-0.039
-0.383
0.701
curiosity
current
general
0.000
-0.005
-0.027
0.978
curiosity
ideal
general
-0.032
-0.190
-1.739
0.082
curiosity
current
specific
0.023
0.146
0.819
0.413
curiosity
ideal
specific
-0.019
-0.076
-0.648
0.517
aesthetic
current
general
0.004
0.038
0.383
0.701
aesthetic
ideal
general
0.008
0.057
0.716
0.474
aesthetic
current
specific
0.043
0.233
1.986
0.047
aesthetic
ideal
specific
0.021
0.093
1.088
0.277
imagination
current
general
-0.008
-0.037
-0.366
0.715
imagination
ideal
general
-0.038
-0.139
-1.664
0.096
imagination
current
specific
-0.078
-0.200
-1.696
0.090
imagination
ideal
specific
-0.078
-0.174
-1.809
0.070
Looking at the facets, we find five covariances that significantly differ from zero at p < .05 (relatively unsystematic across facets / current-ideal / goal dimension):
- Changes in current-level compassion and respectfulness covary with the respective facet-specific acceptance goal.
- Further, changes in current-level organization covary with the general acceptance goal and the specific facet acceptance goal.
- Changes in current-level anxiety covary with the specific facet acceptance goal.
6.6 H6: Desire to change and frequency of self-improvement behaviors as moderators of change in personality in self-improvement group (H2 in paper)
In the self-improvement group, change in current-self ratings but not change in ideal-self ratings will be moderated by change goals (both general and trait-/facet-specific goals) and the frequency of self-improvement behaviors.
We will test this one domain/facet at a time. To test this hypothesis, we will estimate the mean-level difference across time for both current and ideal trait ratings using latent change models and specify change goals (or the frequency of self-improvement behaviors) as a moderator of latent trait change. We will check in a second set of models whether changes in current-self ratings persist from T2 to T3.
Reshape and split data set by intervention group:
Show the code
# from T1 to T2df_sbsa2_wide_pers_sb_mod <- df_sbsa2 %>%filter(rando=="Self-Improvement"& time %in%c(1,2)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sb07", # facet-specific change goals"sb04"))) %>%# frequency self-improvement behaviorspivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with(c("sb07", "sb04")))) %>%select(-c(sb07_01_t2, sb07_02_t2, sb07_03_t2, sb07_04_t2, sb07_05_t2, sb07_06_t2, sb07_07_t2, sb07_08_t2, sb07_09_t2, sb07_10_t2, sb07_11_t2, sb07_12_t2, sb07_13_t2, sb07_14_t2, sb07_15_t2, sb04_01_t1, sb04_02_t1, sb04_03_t1)) # frequency of self-improvement behaviors measured at T2# colnames(df_sbsa2_wide_pers_sb_mod)group_assign <- df_sbsa2 %>%select(pid, rando) %>%unique()df_sbsa2_wide_pers_sb_mod <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Improvement") %>%select(-rando, -ends_with("_t3")) %>%left_join(df_sbsa2_wide_pers_sb_mod)# follow-up, from T2 to T3df_sbsa2_wide_pers_sb_mod_fu <- df_sbsa2 %>%filter(rando=="Self-Improvement"& time %in%c(1,2)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sb07", # facet-specific change goals -> asked at T1"sb04"))) %>%# frequency self-improvement behaviors -> asked at T2pivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with(c("sb07", "sb04")))) %>%select(-c(sb07_01_t2, sb07_02_t2, sb07_03_t2, sb07_04_t2, sb07_05_t2, sb07_06_t2, sb07_07_t2, sb07_08_t2, sb07_09_t2, sb07_10_t2, sb07_11_t2, sb07_12_t2, sb07_13_t2, sb07_14_t2, sb07_15_t2, sb04_01_t1, sb04_02_t1, sb04_03_t1)) # frequency of self-improvement behaviors measured at T2# colnames(df_sbsa2_wide_pers_sb_mod_fu)df_sbsa2_wide_pers_sb_mod_fu <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Improvement"&!is.na(valid_t2)) %>%select(-rando, -ends_with("_t1")) %>%left_join(df_sbsa2_wide_pers_sb_mod_fu)
6.6.1 Big Five traits (run models)
Run models for all traits with templates & loops:
Show the code
# create templates:# 1st, for facet-specific change goalstrait_template_mod_goal <-'trait_t1 =~ 1*ind01_t1 + lamb2*ind02_t1 + lamb3*ind03_t1 # This specifies the measurement model for trait_t1 trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for trait_t2 with the equality constrained factor loadingsgoals =~ 1*ind_goal_1 + ind_goal_2 + ind_goal_3 # latent variable for moderatortrait_t2 ~ 1*trait_t1 # This parameter regresses trait_t2 perfectly on trait_t1d_trait_1 =~ 1*trait_t2 # This defines the latent change score factor as measured perfectly by scores on trait_t2trait_t2 ~ 0*1 # This line constrains the intercept of trait_t2 to 0trait_t2 ~~ 0*trait_t2 # This fixes the variance of trait_t2 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t1 ~ 1 # This estimates the intercept of trait_t1 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t1 ~~ trait_t1 # This estimates the variance of trait_t1 trait_t1 ~ goals # This estimates the moderation effect on personality at T1d_trait_1 ~ trait_t1 + goals # This estimates the self-feedback parameter and the moderation effect on the change scoregoals ~ 0*1 # This fixes the intercept of the moderator to 0goals ~~ goals # This estimates the variance of the moderatorind01_t1 ~~ ind01_t2 # This allows residual covariance on indicator X1 across T1 and T2ind02_t1 ~~ ind02_t2 # This allows residual covariance on indicator X2 across T1 and T2ind03_t1 ~~ ind03_t2 # This allows residual covariance on indicator X3 across T1 and T2ind01_t1 ~~ res1*ind01_t1 # This allows residual variance on indicator X1 at T1 ind02_t1 ~~ res2*ind02_t1 # This allows residual variance on indicator X2 at T1ind03_t1 ~~ res3*ind03_t1 # This allows residual variance on indicator X3 at T1ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2 ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind02_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind03_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind_goal_1 ~~ ind_goal_1ind_goal_2 ~~ ind_goal_2ind_goal_3 ~~ ind_goal_3ind_goal_1 ~ 1ind_goal_2 ~ 1ind_goal_3 ~ 1'trait_facets_nrs <-list(a1 =c(1:3), b2 =c(4:6), c3 =c(7:9), d4 =c(10:12), e5 =c(13:15)) # matching facet nrs to traits # loop across 5 traits -> change in current-self ratingsfor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! mod_names =paste0("sb07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), "ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"), "ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6")), trait_model_fit))} # loop across 5 traits -> change in *ideal*-self ratings (not hypothesis-conform)for (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! mod_names =paste0("sb07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), # ideal instead of current!"ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"), "ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp6")), template_filled)) # ideal instead of curreval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp6")), trait_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for current self ratings)trait_template_mod_goal_fu <-'trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for trait_t2 trait_t3 =~ 1*ind01_t3 + lamb2*ind02_t3 + lamb3*ind03_t3 # This specifies the measurement model for trait_t3 with the equality constrained factor loadingsgoals =~ 1*ind_goal_1 + ind_goal_2 + ind_goal_3 # latent variable for moderatortrait_t3 ~ 1*trait_t2 # This parameter regresses trait_t3 perfectly on trait_t2d_trait_1 =~ 1*trait_t3 # This defines the latent change score factor as measured perfectly by scores on trait_t3trait_t3 ~ 0*1 # This line constrains the intercept of trait_t3 to 0trait_t3 ~~ 0*trait_t3 # This fixes the variance of trait_t3 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t2 ~ 1 # This estimates the intercept of trait_t2 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t2 ~~ trait_t2 # This estimates the variance of trait_t2 trait_t2 ~ goals # This estimates the moderation effect on personality at T2d_trait_1 ~ trait_t2 + goals # This estimates the self-feedback parameter and the moderation effect on the change scoregoals ~ 0*1 # This fixes the intercept of the moderator to 0goals ~~ goals # This estimates the variance of the moderatorind01_t2 ~~ ind01_t3 # This allows residual covariance on indicator X1 across T2 and T3ind02_t2 ~~ ind02_t3 # This allows residual covariance on indicator X2 across T2 and T3ind03_t2 ~~ ind03_t3 # This allows residual covariance on indicator X3 across T2 and T3ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t3 ~~ res1*ind01_t3 # This allows residual variance on indicator X1 at T3 ind02_t3 ~~ res2*ind02_t3 # This allows residual variance on indicator X2 at T3 ind03_t3 ~~ res3*ind03_t3 # This allows residual variance on indicator X3 at T3ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind01_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind02_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind03_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind_goal_1 ~~ ind_goal_1ind_goal_2 ~~ ind_goal_2ind_goal_3 ~~ ind_goal_3ind_goal_1 ~ 1ind_goal_2 ~ 1ind_goal_3 ~ 1'# loop across 5 traits -> change in current-self ratingsfor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! mod_names =paste0("sb07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal_fu, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), "ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"), "ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6_fu")), trait_model_fit))} # 2nd, for frequency of self-improvement behaviortrait_template_mod_frequ <-'trait_t1 =~ 1*ind01_t1 + lamb2*ind02_t1 + lamb3*ind03_t1 # This specifies the measurement model for extra_t1 trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsfrequ =~ 1*sb04_01_t2 + sb04_02_t2 + sb04_03_t2 # latent variable for moderatortrait_t2 ~ 1*trait_t1 # This parameter regresses trait_t2 perfectly on trait_t1d_trait_1 =~ 1*trait_t2 # This defines the latent change score factor as measured perfectly by scores on trait_t2trait_t2 ~ 0*1 # This line constrains the intercept of trait_t2 to 0trait_t2 ~~ 0*trait_t2 # This fixes the variance of trait_t2 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t1 ~ 1 # This estimates the intercept of trait_t1 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t1 ~~ trait_t1 # This estimates the variance of trait_t1 trait_t1 ~ frequ # This estimates the moderation effect on personality at T1d_trait_1 ~ trait_t1 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind01_t1 ~~ ind01_t2 # This allows residual covariance on indicator X1 across T1 and T2ind02_t1 ~~ ind02_t2 # This allows residual covariance on indicator X2 across T1 and T2ind03_t1 ~~ ind03_t2 # This allows residual covariance on indicator X3 across T1 and T2ind01_t1 ~~ res1*ind01_t1 # This allows residual variance on indicator X1 at T1 ind02_t1 ~~ res2*ind02_t1 # This allows residual variance on indicator X2 at T1ind03_t1 ~~ res3*ind03_t1 # This allows residual variance on indicator X3 at T1ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2 ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind02_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind03_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2sb04_01_t2 ~~ sb04_01_t2sb04_02_t2 ~~ sb04_02_t2sb04_03_t2 ~~ sb04_03_t2sb04_01_t2 ~ 1sb04_02_t2 ~ 1sb04_03_t2 ~ 1'# loop across 5 traitsfor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), "ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6")), trait_model_fit))} # loop across 5 traits -> change in *ideal*-self ratings (not hypothesis-conform)for (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), # ideal instead of current!"ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp6")), template_filled)) # ideal instead of curreval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp6")), trait_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for current self ratings)trait_template_mod_frequ_fu <-'trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for extra_t2 trait_t3 =~ 1*ind01_t3 + lamb2*ind02_t3 + lamb3*ind03_t3 # This specifies the measurement model for extra_t3 with the equality constrained factor loadingsfrequ =~ 1*sb04_01_t2 + sb04_02_t2 + sb04_03_t2 # latent variable for moderatortrait_t3 ~ 1*trait_t2 # This parameter regresses trait_t3 perfectly on trait_t2d_trait_1 =~ 1*trait_t3 # This defines the latent change score factor as measured perfectly by scores on trait_t3trait_t3 ~ 0*1 # This line constrains the intercept of trait_t3 to 0trait_t3 ~~ 0*trait_t3 # This fixes the variance of trait_t3 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t2 ~ 1 # This estimates the intercept of trait_t2 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t2 ~~ trait_t2 # This estimates the variance of trait_t2 trait_t2 ~ frequ # This estimates the moderation effect on personality at T2d_trait_1 ~ trait_t2 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind01_t2 ~~ ind01_t3 # This allows residual covariance on indicator X1 across T2 and T3ind02_t2 ~~ ind02_t3 # This allows residual covariance on indicator X2 across T2 and T3ind03_t2 ~~ ind03_t3 # This allows residual covariance on indicator X3 across T2 and T3ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t3 ~~ res1*ind01_t3 # This allows residual variance on indicator X1 at T3 ind02_t3 ~~ res2*ind02_t3 # This allows residual variance on indicator X2 at T3 ind03_t3 ~~ res3*ind03_t3 # This allows residual variance on indicator X3 at T3ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind01_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind02_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind03_t3 ~ m3*1 # This estimates the intercept of X3 at T3sb04_01_t2 ~~ sb04_01_t2sb04_02_t2 ~~ sb04_02_t2sb04_03_t2 ~~ sb04_03_t2sb04_01_t2 ~ 1sb04_02_t2 ~ 1sb04_03_t2 ~ 1'# loop across 5 traitsfor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current# items = paste0(bfi_versions[[5]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ_fu, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), "ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6_fu")), trait_model_fit))}
6.6.2 Big Five traits (current self)
6.6.2.1 Extraversion: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the extraversion change score (current-self) is not significantly different from zero, b = -0.09, p = 0.32.
6.6.2.2 Extraversion: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of specific, facet-level change goals with the agreeableness change score (current-self) is not significantly different from zero, b = 0.003, p = 0.895.
6.6.2.4 Agreeableness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the agreeableness change score (current-self) is not significantly different from zero, b = 0.061, p = 0.083.
6.6.2.5 Conscientiousness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the conscientiousness change score (current-self) is not significantly different from zero, b = -0.058, p = 0.149.
6.6.2.6 Conscientiousness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the conscientiousness change score (current-self) is not significantly different from zero, b = 0.067, p = 0.217.
6.6.2.7 Neuroticism: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the neuroticism change score (current-self) is not significantly different from zero, b = 0.09, p = 0.053.
6.6.2.8 Neuroticism: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the neuroticism change score (current-self) is not significantly different from zero, b = -0.048, p = 0.376.
6.6.2.9 Openness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the openness change score (current-self) is not significantly different from zero, b = -0.02, p = 0.558.
6.6.2.10 Openness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the openness change score (current-self) is not significantly different from zero, b = 0.072, p = 0.108.
6.6.3 Big Five traits (current self - follow-up T3)
6.6.3.1 Extraversion: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the extraversion change score (current-self) is not significantly different from zero, b = 0.061, p = 0.425.
6.6.3.2 Extraversion: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the extraversion change score (current-self) is not significantly different from zero, b = 0.01, p = 0.84.
6.6.3.3 Agreeableness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the agreeableness change score (current-self) is not significantly different from zero, b = -0.009, p = 0.699.
6.6.3.4 Agreeableness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the agreeableness change score (current-self) is not significantly different from zero, b = -0.051, p = 0.16.
6.6.3.5 Conscientiousness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the conscientiousness change score (current-self) is not significantly different from zero, b = -0.051, p = 0.301.
6.6.3.6 Conscientiousness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the conscientiousness change score (current-self) is not significantly different from zero, b = 0.02, p = 0.714.
6.6.3.7 Neuroticism: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the neuroticism change score (current-self) is not significantly different from zero, b = 0.017, p = 0.695.
6.6.3.8 Neuroticism: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the neuroticism change score (current-self) is not significantly different from zero, b = -0.023, p = 0.667.
6.6.3.9 Openness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the openness change score (current-self) is not significantly different from zero, b = 0.043, p = 0.182.
6.6.3.10 Openness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the openness change score (current-self) is not significantly different from zero, b = -0.012, p = 0.783.
6.6.4 Big Five traits (ideal self)
6.6.4.1 Extraversion: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the extraversion change score (ideal-self) is not significantly different from zero, b = 0.039, p = 0.587.
6.6.4.2 Extraversion: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the extraversion change score (ideal-self) is not significantly different from zero, b = 0.073, p = 0.082.
6.6.4.3 Agreeableness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the agreeableness change score (ideal-self) is not significantly different from zero, b = 0.001, p = 0.969.
6.6.4.4 Agreeableness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the agreeableness change score (ideal-self) is not significantly different from zero, b = 0.005, p = 0.914.
6.6.4.5 Conscientiousness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the conscientiousness change score (ideal-self) is not significantly different from zero, b = -0.028, p = 0.173.
6.6.4.6 Conscientiousness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of specific, facet-level change goals with the neuroticism change score (ideal-self) is not significantly different from zero, b = 0.031, p = 0.246.
6.6.4.8 Neuroticism: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the neuroticism change score (ideal-self) is not significantly different from zero, b = -0.041, p = 0.432.
6.6.4.9 Openness: specific, facet-level change goals as moderator of change
Results summary (goals = trait/facet specific change goal):
The moderation effect of specific, facet-level change goals with the openness change score (ideal-self) is not significantly different from zero, b = -0.002, p = 0.927.
6.6.4.10 Openness: frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the openness change score (ideal-self) is not significantly different from zero, b = 0.021, p = 0.438.
6.6.5 Big Five facets (run models)
Run models for all facets with a template & loop:
Show the code
# create templates:# 1st, for facet-specific change goalfacet_template_mod_goal <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)facet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 facet_t1 ~ ind_goal # This estimates the moderation effect on personality at T1d_facet_1 ~ facet_t1 + ind_goal # This estimates the self-feedback parameter and the moderation effect on the change scoreind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facets -> change in current-self ratingsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[5]], item_nrs) mod_name =paste0("sb07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6")), facet_model_fit))} # loop across 15 facets -> change in ideal-self ratingsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[6]], item_nrs) # ideal mod_name =paste0("sb07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp6")), template_filled)) # idealeval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp6")), facet_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for current self ratings)facet_template_mod_goal_fu <-'facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2facet_t3 =~ 1*ind1_t3 + lamb2*ind2_t3 + lamb3*ind3_t3 + lamb4*ind4_t3 # This specifies the measurement model for facet at T3 (with equality constraints)facet_t3 ~ 1*facet_t2 # This parameter regresses facet_t3 perfectly on facet_t2d_facet_1 =~ 1*facet_t3 # This defines the latent change score factor as measured perfectly by scores on facet_t3facet_t3 ~ 0*1 # This line constrains the intercept of facet_t3 to 0facet_t3 ~~ 0*facet_t3 # This fixes the variance of facet_t3 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t2 ~ 1 # This estimates the intercept of facet_t2 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t2 ~~ facet_t2 # This estimates the variance of facet_t2 facet_t2 ~ ind_goal # This estimates the moderation effect on personality at T2d_facet_1 ~ facet_t2 + ind_goal # This estimates the self-feedback parameter and the moderation effect on the change scoreind1_t2 ~~ ind1_t3 # This allows residual covariance on indicator X1 across T2 and T3ind2_t2 ~~ ind2_t3 # This allows residual covariance on indicator X2 across T2 and T3ind3_t2 ~~ ind3_t3 # This allows residual covariance on indicator X3 across T2 and T3ind4_t2 ~~ ind4_t3 # This allows residual covariance on indicator X4 across T2 and T3ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t3 ~~ res1*ind1_t3 # This allows residual variance on indicator X1 at T3 ind2_t3 ~~ res2*ind2_t3 # This allows residual variance on indicator X2 at T3 ind3_t3 ~~ res3*ind3_t3 # This allows residual variance on indicator X3 at T3ind4_t3 ~~ res4*ind4_t3 # This allows residual variance on indicator X4 at T3ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind2_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind3_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind4_t3 ~ m4*1 # This estimates the intercept of X4 at T3ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facets -> change in current-self ratingsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[5]], item_nrs) mod_name =paste0("sb07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal_fu, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp6_fu")), facet_model_fit))} # 2nd, for frequency of self-improvement behaviorfacet_template_mod_frequ <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)frequ =~ 1*sb04_01_t2 + sb04_02_t2 + sb04_03_t2 # latent variable for moderatorfacet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 facet_t1 ~ frequ # This estimates the moderation effect on personality at T1d_facet_1 ~ facet_t1 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2sb04_01_t2 ~~ sb04_01_t2sb04_02_t2 ~~ sb04_02_t2sb04_03_t2 ~~ sb04_03_t2sb04_01_t2 ~ 1sb04_02_t2 ~ 1sb04_03_t2 ~ 1'# loop across 15 facets -> change in current-self ratingsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[5]], item_nrs) template_filled <-str_replace_all(facet_template_mod_frequ, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6")), facet_model_fit))} # loop across 15 facets -> change in ideal-self ratingsfor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[6]], item_nrs) # ideal template_filled <-str_replace_all(facet_template_mod_frequ, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp6")), template_filled)) # idealeval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp6")), facet_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for current self ratings)facet_template_mod_frequ_fu <-'facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2facet_t3 =~ 1*ind1_t3 + lamb2*ind2_t3 + lamb3*ind3_t3 + lamb4*ind4_t3 # This specifies the measurement model for facet at T3 (with equality constraints)frequ =~ 1*sb04_01_t2 + sb04_02_t2 + sb04_03_t2 # latent variable for moderatorfacet_t3 ~ 1*facet_t2 # This parameter regresses facet_t3 perfectly on facet_t2d_facet_1 =~ 1*facet_t3 # This defines the latent change score factor as measured perfectly by scores on facet_t3facet_t3 ~ 0*1 # This line constrains the intercept of facet_t3 to 0facet_t3 ~~ 0*facet_t3 # This fixes the variance of facet_t3 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t2 ~ 1 # This estimates the intercept of facet_t2 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t2 ~~ facet_t2 # This estimates the variance of facet_t2 facet_t2 ~ frequ # This estimates the moderation effect on personality at T2d_facet_1 ~ facet_t2 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind1_t2 ~~ ind1_t3 # This allows residual covariance on indicator X1 across T2 and T3ind2_t2 ~~ ind2_t3 # This allows residual covariance on indicator X2 across T2 and T3ind3_t2 ~~ ind3_t3 # This allows residual covariance on indicator X3 across T2 and T3ind4_t2 ~~ ind4_t3 # This allows residual covariance on indicator X4 across T2 and T3ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t3 ~~ res1*ind1_t3 # This allows residual variance on indicator X1 at T3 ind2_t3 ~~ res2*ind2_t3 # This allows residual variance on indicator X2 at T3 ind3_t3 ~~ res3*ind3_t3 # This allows residual variance on indicator X3 at T3ind4_t3 ~~ res4*ind4_t3 # This allows residual variance on indicator X4 at T3ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind2_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind3_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind4_t3 ~ m4*1 # This estimates the intercept of X4 at T3sb04_01_t2 ~~ sb04_01_t2sb04_02_t2 ~~ sb04_02_t2sb04_03_t2 ~~ sb04_03_t2sb04_01_t2 ~ 1sb04_02_t2 ~ 1sb04_03_t2 ~ 1'# loop across 15 facets -> change in current-self ratings from T2 to T3for (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post current items =paste0(bfi_versions[[5]], item_nrs) template_filled <-str_replace_all(facet_template_mod_frequ_fu, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sb_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp6_fu")), facet_model_fit))}
6.6.6 Big Five facets (current self)
6.6.6.1 Sociability - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the sociability change score (current-self) is not significantly different from zero, b = -0.036, p = 0.28.
6.6.6.2 Sociability - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the facet-specific change goal with the assertiveness change score (current-self) is not significantly different from zero, b = -0.033, p = 0.09.
6.6.6.4 Assertiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the assertiveness change score (current-self) is not significantly different from zero, b = 0.063, p = 0.155.
6.6.6.5 Energy - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the energy change score (current-self) is not significantly different from zero, b = -0.027, p = 0.066.
6.6.6.6 Energy - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the energy change score (current-self) is not significantly different from zero (at p < . 001), b = -0.081, p = 0.016.
6.6.6.7 Compassion - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the compassion change score (current-self) is not significantly different from zero, b = 0.019, p = 0.405.
6.6.6.8 Compassion - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the facet-specific change goal with the respectfulness change score (current-self) is not significantly different from zero, b = -0.019, p = 0.362.
6.6.6.10 Respectfulness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the respectfulness change score (current-self) is not significantly different from zero, b = -0.026, p = 0.593.
6.6.6.11 Trust - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the trust change score (current-self) is not significantly different from zero, b = -0.032, p = 0.226.
6.6.6.12 Trust - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the self-improvement behaviors with the trust change score (current-self) is not significantly different from zero, b = -0.022, p = 0.693.
6.6.6.13 Organization - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the organization change score (current-self) is not significantly different from zero, b = -0.001, p = 0.979.
6.6.6.14 Organization - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the organization change score (current-self) is not significantly different from zero, b = -0.054, p = 0.45.
6.6.6.15 Productiveness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the productiveness change score (current-self) is not significantly different from zero, b = 0.071, p = 0.113.
6.6.6.16 Productiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the facet-specific change goal with the responsibility change score (current-self) is not significantly different from zero, b = -0.008, p = 0.694.
6.6.6.18 Responsibility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the responsibility change score (current-self) is not significantly different from zero, b = 0.01, p = 0.829.
6.6.6.19 Anxiety - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the anxiety change score (current-self) is not significantly different from zero (at p < .001), b = 0.085, p = 0.05.
6.6.6.20 Anxiety - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the anxiety change score (current-self) is not significantly different from zero, b = 0.059, p = 0.467.
6.6.6.21 Depression - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the depression change score (current-self) is not significantly different from zero, b = -0.052, p = 0.091.
6.6.6.22 Depression - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the depression change score (current-self) is not significantly different from zero, b = 0.034, p = 0.496.
6.6.6.23 Volatility - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the volatility change score (current-self) is not significantly different from zero, b = 0.048, p = 0.144.
6.6.6.24 Volatility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the volatility change score (current-self) is significantly different from zero, b = 0.028, p = 0.72.
6.6.6.25 Curiosity - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the curiosity change score (current-self) is not significantly different from zero, b = 0.038, p = 0.075.
6.6.6.26 Curiosity - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the curiosity change score (current-self) is not significantly different from zero (at p < .001), b = 0.121, p = 0.007.
6.6.6.27 Aesthetic - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the aesthetic change score (current-self) is not significantly different from zero, b = 0.002, p = 0.8.
6.6.6.28 Aesthetic - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the aesthetic change score (current-self) is not significantly different from zero, b = 0, p = 0.996.
6.6.6.29 Imagination - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the imagination change score (current-self) is not significantly different from zero, b = -0.018, p = 0.487.
6.6.6.30 Imagination - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the imagination change score (current-self) is not significantly different from zero, b = 0.114, p = 0.076.
6.6.7 Big Five facets (current self - follow-up T3)
6.6.7.1 Sociability - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the sociability change score (current-self) from T2 to T3 is not significantly different from zero, b = -0.006, p = 0.861.
6.6.7.2 Sociability - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the sociability change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.021, p = 0.721.
6.6.7.3 Assertiveness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the assertiveness change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.016, p = 0.444.
6.6.7.4 Assertiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the assertiveness change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.026, p = 0.525.
6.6.7.5 Energy - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the energy change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.017, p = 0.186.
6.6.7.6 Energy - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the energy change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.023, p = 0.453.
6.6.7.7 Compassion - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the compassion change score from T2 to T3 (current-self) is not significantly different from zero (at p < . 001), b = -0.093, p = 0.002.
6.6.7.8 Compassion - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the compassion change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.077, p = 0.313.
6.6.7.9 Respectfulness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the respectfulness change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.016, p = 0.401.
6.6.7.10 Respectfulness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the respectfulness change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.051, p = 0.224.
6.6.7.11 Trust - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the trust change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.007, p = 0.755.
6.6.7.12 Trust - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the self-improvement behaviors with the trust change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.014, p = 0.79.
6.6.7.13 Organization - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the organization change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.006, p = 0.887.
6.6.7.14 Organization - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the organization change score from T2 to T3 (current-self) is not significantly different from zero (at p < .001), b = -0.155, p = 0.042.
6.6.7.15 Productiveness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the productiveness change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.05, p = 0.327.
6.6.7.16 Productiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the facet-specific change goal with the responsibility change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.019, p = 0.451.
6.6.7.18 Responsibility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the responsibility change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.01, p = 0.863.
6.6.7.19 Anxiety - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The facet-specific change goal significantly moderates changes in anxiety from T2 to T3 (current-self), b = -0.111, p = 0.001. Main effect was an increase in anxiety from T2 to T3 and this increase was less pronounced for those with a higher anxiety change goal.
6.6.7.20 Anxiety - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the anxiety change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.045, p = 0.558.
6.6.7.21 Depression - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the depression change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.014, p = 0.589.
6.6.7.22 Depression - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the depression change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.002, p = 0.967.
6.6.7.23 Volatility - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the volatility change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.037, p = 0.281.
6.6.7.24 Volatility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the volatility change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.054, p = 0.474.
6.6.7.25 Curiosity - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the curiosity change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.017, p = 0.366.
6.6.7.26 Curiosity - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the curiosity change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.011, p = 0.791.
6.6.7.27 Aesthetic - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the aesthetic change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.009, p = 0.202.
6.6.7.28 Aesthetic - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the aesthetic change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.001, p = 0.96.
6.6.7.29 Imagination - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the imagination change score from T2 to T3 (current-self) is not significantly different from zero, b = -0.003, p = 0.907.
6.6.7.30 Imagination - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the imagination change score from T2 to T3 (current-self) is not significantly different from zero, b = 0.046, p = 0.494.
6.6.8 Big Five facets (ideal self)
6.6.8.1 Sociability - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the sociability change score (ideal-self) is not significantly different from zero, b = -0.041, p = 0.081.
6.6.8.2 Sociability - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with sociability change score (ideal-self) is not significantly different from zero, b = 0.073, p = 0.202.
6.6.8.3 Assertiveness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the assertiveness change score (ideal-self) is not significantly different from zero, b = 0.004, p = 0.787.
6.6.8.4 Assertiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the assertiveness change score (ideal-self) is not significantly different from zero, b = 0.062, p = 0.138.
6.6.8.5 Energy - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the energy change score (ideal-self) is not significantly different from zero, b = 0.01, p = 0.414.
6.6.8.6 Energy - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the energy change score (ideal-self) is not significantly different from zero, b = -0.017, p = 0.631.
6.6.8.7 Compassion - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the compassion change score (ideal-self) is not significantly different from zero, b = 0.038, p = 0.159.
6.6.8.8 Compassion - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the compassion change score (ideal-self) is not significantly different from zero, b = 0.029, p = 0.676.
6.6.8.9 Respectfulness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the respectfulness change score (ideal-self) is not significantly different from zero, b = -0.021, p = 0.239.
6.6.8.10 Respectfulness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the respectfulness change score (ideal-self) is not significantly different from zero, b = 0.007, p = 0.857.
6.6.8.11 Trust - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the trust change score (ideal-self) is not significantly different from zero, b = -0.016, p = 0.388.
6.6.8.12 Trust - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the self-improvement behaviors with the trust change score (ideal-self) is not significantly different from zero, b = 0.044, p = 0.376.
6.6.8.13 Organization - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the organization change score (ideal-self) is not significantly different from zero, b = 0.025, p = 0.225.
6.6.8.14 Organization - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the organization change score (ideal-self) is not significantly different from zero (at p < .001), b = -0.113, p = 0.034.
6.6.8.15 Productiveness - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the productiveness change score (ideal-self) is not significantly different from zero, b = 0.027, p = 0.089.
6.6.8.16 Productiveness - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the facet-specific change goal with the responsibility change score (ideal-self) is not significantly different from zero, b = -0.003, p = 0.818.
6.6.8.18 Responsibility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the responsibility change score (ideal-self) is not significantly different from zero, b = 0.028, p = 0.374.
6.6.8.19 Anxiety - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the anxiety change score (ideal-self) is not significantly different from zero, b = 0.003, p = 0.84.
6.6.8.20 Anxiety - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the anxiety change score (ideal-self) is not significantly different from zero, b = 0.015, p = 0.756.
6.6.8.21 Depression - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the depression change score (ideal-self) is not significantly different from zero, b = -0.009, p = 0.4.
6.6.8.22 Depression - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the depression change score (ideal-self) is not significantly different from zero, b = 0.008, p = 0.793.
6.6.8.23 Volatility - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the volatility change score (ideal-self) is not significantly different from zero, b = 0.026, p = 0.214.
6.6.8.24 Volatility - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the volatility change score (ideal-self) is significantly different from zero, b = -0.051, p = 0.366.
6.6.8.25 Curiosity - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the curiosity change score (ideal-self) is not significantly different from zero, b = 0.007, p = 0.655.
6.6.8.26 Curiosity - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the curiosity change score (ideal-self) is not significantly different from zero, b = 0.063, p = 0.109.
6.6.8.27 Aesthetic - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the aesthetic change score (ideal-self) is not significantly different from zero, b = 0, p = 0.998.
6.6.8.28 Aesthetic - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the aesthetic change score (ideal-self) is not significantly different from zero, b = 0, p = 0.945.
6.6.8.29 Imagination - specific, facet-level change goal as moderator of change
Results summary (sb07_xx_t1 = trait/facet specific change goal):
The moderation effect of the facet-specific change goal with the imagination change score (ideal-self) is not significantly different from zero, b = -0.007, p = 0.669.
6.6.8.30 Imagination - frequency of self-improvement behaviors as moderator of change
Results summary (frequ = frequency of self-improvement behavior):
The moderation effect of the frequency of self-improvement behaviors with the imagination change score (ideal-self) is not significantly different from zero, b = 0.047, p = 0.388.
Results summary across the Big Five traits: trait-specific change goals (goals) and frequency of self-improvement behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp6[1:10, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
extraversion
goals
0.906
3.114
0.003
-0.090
-0.231
0.320
extraversion
frequency
0.683
2.353
0.000
0.132
0.285
0.002
agreeableness
goals
0.672
3.306
0.001
0.003
0.015
0.895
agreeableness
frequency
0.810
3.773
0.000
0.061
0.181
0.083
conscientiousness
goals
0.789
1.902
0.001
-0.058
-0.169
0.149
conscientiousness
frequency
0.593
1.443
0.000
0.067
0.102
0.217
neuroticism
goals
0.806
1.747
0.000
0.090
0.222
0.053
neuroticism
frequency
0.528
1.145
0.000
-0.048
-0.066
0.376
openness
goals
0.461
1.717
0.013
-0.020
-0.060
0.558
openness
frequency
0.495
1.870
0.006
0.072
0.169
0.108
No moderation effects that are significantly different from zero at p < .001. Only at p < .01 do we find a significant effect:
changes in current-level extraversion are moderated by the frequency of self-improvement behaviors
Results summary across the Big Five facets: trait-specific change goals (goals) and frequency of self-improvement behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp6[11:40, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
sociability
goals
0.795
2.026
0.001
-0.036
-0.116
0.280
sociability
frequency
0.547
1.439
0.000
0.191
0.319
0.001
assertiveness
goals
0.669
2.406
0.000
-0.033
-0.153
0.090
assertiveness
frequency
0.528
1.960
0.001
0.063
0.146
0.155
energy
goals
0.374
2.473
0.012
-0.027
-0.220
0.066
energy
frequency
0.464
2.948
0.001
-0.081
-0.317
0.016
compassion
goals
0.795
3.204
0.005
0.019
0.106
0.405
compassion
frequency
1.006
4.012
0.000
0.075
0.189
0.214
respectfulness
goals
1.399
4.481
0.000
-0.019
-0.081
0.362
respectfulness
frequency
1.243
3.977
0.001
-0.026
-0.053
0.593
trust
goals
0.463
1.476
0.007
-0.032
-0.138
0.226
trust
frequency
0.421
1.443
0.010
-0.022
-0.047
0.693
organization
goals
0.224
0.457
0.064
-0.001
-0.003
0.979
organization
frequency
0.250
0.544
0.056
-0.054
-0.074
0.450
productiveness
goals
0.551
0.908
0.005
0.071
0.162
0.113
productiveness
frequency
0.656
1.095
0.002
-0.159
-0.166
0.054
responsibility
goals
0.764
3.007
0.006
-0.008
-0.044
0.694
responsibility
frequency
0.708
2.722
0.000
0.010
0.024
0.829
anxiety
goals
0.009
0.022
0.979
0.085
0.301
0.050
anxiety
frequency
0.581
1.344
0.000
0.059
0.086
0.467
depression
goals
1.192
3.303
0.000
-0.052
-0.234
0.091
depression
frequency
0.744
2.000
0.000
0.034
0.057
0.496
volatility
goals
0.679
1.187
0.000
0.048
0.121
0.144
volatility
frequency
0.730
1.289
0.000
0.028
0.031
0.720
curiosity
goals
0.148
0.768
0.694
0.038
0.257
0.075
curiosity
frequency
0.472
2.467
0.124
0.121
0.397
0.007
aesthetic
goals
0.340
3.438
0.018
0.002
0.023
0.800
aesthetic
frequency
0.341
3.407
0.026
0.000
0.001
0.996
imagination
goals
0.684
2.021
0.015
-0.018
-0.075
0.487
imagination
frequency
0.691
1.982
0.002
0.114
0.205
0.076
Looking at the facets, we only find one moderator effect that significantly differ from zero (p < .001) and two other effects at p < .05:
Within extraversion, we find the effect for the frequency of self-improvement behaviors from above represented in the facet sociability, and at p < .05 in energy (but in the other, unexpected direction).
Within openness, change in the curiosity facet is moderated by the frequency of self-improvement behaviors (at p < .01).
Results summary across the Big Five traits: trait-specific change goals (goals) and frequency of self-improvement behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp6_ideal[1:10, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
extraversion
goals
0.668
2.786
0.011
0.039
0.093
0.587
extraversion
frequency
0.784
3.334
0.004
0.073
0.199
0.082
agreeableness
goals
0.863
3.158
0.000
0.001
0.004
0.969
agreeableness
frequency
0.875
3.262
0.000
0.005
0.011
0.914
conscientiousness
goals
0.642
2.418
0.072
-0.028
-0.124
0.173
conscientiousness
frequency
0.746
2.805
0.050
0.059
0.142
0.129
neuroticism
goals
0.463
1.270
0.002
0.031
0.094
0.246
neuroticism
frequency
0.498
1.367
0.002
-0.041
-0.072
0.432
openness
goals
0.612
4.146
0.014
-0.002
-0.009
0.927
openness
frequency
0.647
4.323
0.011
0.021
0.087
0.438
No significant moderation effects at the domain level.
Results summary across the Big Five facets: trait-specific change goals (goals) and frequency of self-improvement behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp6_ideal[11:40, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
sociability
goals
0.793
2.934
0.043
-0.041
-0.189
0.081
sociability
frequency
0.793
2.875
0.044
0.073
0.168
0.202
assertiveness
goals
0.735
3.693
0.100
0.004
0.027
0.787
assertiveness
frequency
1.023
4.992
0.039
0.062
0.192
0.138
energy
goals
-0.078
-0.649
0.838
0.010
0.103
0.414
energy
frequency
0.025
0.207
0.949
-0.017
-0.092
0.631
compassion
goals
0.083
0.379
0.881
0.038
0.232
0.159
compassion
frequency
0.315
1.387
0.559
0.029
0.081
0.676
respectfulness
goals
1.410
5.850
0.000
-0.021
-0.115
0.239
respectfulness
frequency
1.334
5.528
0.002
0.007
0.018
0.857
trust
goals
0.007
0.053
0.973
-0.016
-0.164
0.388
trust
frequency
-0.076
-0.593
0.706
0.044
0.217
0.376
organization
goals
0.312
1.109
0.049
0.025
0.130
0.225
organization
frequency
0.476
1.729
0.002
-0.113
-0.266
0.034
productiveness
goals
0.013
0.051
0.945
0.027
0.151
0.089
productiveness
frequency
0.157
0.630
0.320
-0.045
-0.115
0.254
responsibility
goals
0.974
5.091
0.012
-0.003
-0.024
0.818
responsibility
frequency
1.054
5.507
0.008
0.028
0.096
0.374
anxiety
goals
1.595
6.203
0.033
0.003
0.017
0.840
anxiety
frequency
1.652
6.085
0.041
0.015
0.035
0.756
depression
goals
1.783
7.163
0.000
-0.009
-0.058
0.400
depression
frequency
1.770
7.038
0.000
0.008
0.020
0.793
volatility
goals
0.094
0.297
0.596
0.026
0.118
0.214
volatility
frequency
0.196
0.621
0.276
-0.051
-0.104
0.366
curiosity
goals
0.420
2.971
0.391
0.007
0.064
0.655
curiosity
frequency
0.468
3.246
0.325
0.063
0.276
0.109
aesthetic
goals
0.415
30.818
0.134
0.000
0.000
0.998
aesthetic
frequency
0.417
37.075
0.120
0.000
0.007
0.945
imagination
goals
1.433
5.454
0.008
-0.007
-0.037
0.669
imagination
frequency
1.505
5.801
0.010
0.047
0.116
0.388
No significant moderation effects at the facet level (at p < .001).
6.7 H7: Desire to change and frequency of self-acceptance behaviors as moderators of change in personality in self-acceptance group
In the self-acceptance group, change in ideal-self ratings but not change in current-self ratings will be moderated by acceptance goals (both general and trait-/facet-specific goals) and the frequency of self-acceptance behaviors.
We will test this one domain/facet at a time. To test this hypothesis, we will estimate the mean-level difference across time for both current and ideal trait ratings using latent change models and specify acceptance goals (or the frequency of self-acceptance behaviors) as a moderator of latent trait change. We will check in a second set of models whether changes in ideal-self ratings persist from T2 to T3.
Reshape and split data set by intervention group:
Show the code
# from T! to T2df_sbsa2_wide_pers_sa_mod <- df_sbsa2 %>%filter(rando=="Self-Acceptance"& time %in%c(1,2)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sa07", # facet-specific acceptance goals"sa04"))) %>%# frequency self-acceptance behaviorspivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with(c("sa07", "sa04")))) %>%select(-c(sa07_01_t2, sa07_02_t2, sa07_03_t2, sa07_04_t2, sa07_05_t2, sa07_06_t2, sa07_07_t2, sa07_08_t2, sa07_09_t2, sa07_10_t2, sa07_11_t2, sa07_12_t2, sa07_13_t2, sa07_14_t2, sa07_15_t2, sa04_01_t1, sa04_02_t1, sa04_03_t1)) # frequency of self-acceptance behaviors measured at T2# colnames(df_sbsa2_wide_pers_sa_mod)group_assign <- df_sbsa2 %>%select(pid, rando) %>%unique()df_sbsa2_wide_pers_sa_mod <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Acceptance") %>%select(-rando, -ends_with("_t3")) %>%left_join(df_sbsa2_wide_pers_sa_mod)# follow-up, from T2 to T3df_sbsa2_wide_pers_sa_mod_fu <- df_sbsa2 %>%filter(rando=="Self-Acceptance"& time %in%c(1,2)) %>%arrange(pid, time) %>%select(pid, time, starts_with(c("sa07", # facet-specific change goals -> asked at T1"sa04"))) %>%# frequency self-improvement behaviors -> asked at T2pivot_wider(names_from = time,names_sep ="_t",values_from =c(starts_with(c("sa07", "sa04")))) %>%select(-c(sa07_01_t2, sa07_02_t2, sa07_03_t2, sa07_04_t2, sa07_05_t2, sa07_06_t2, sa07_07_t2, sa07_08_t2, sa07_09_t2, sa07_10_t2, sa07_11_t2, sa07_12_t2, sa07_13_t2, sa07_14_t2, sa07_15_t2, sa04_01_t1, sa04_02_t1, sa04_03_t1)) # frequency of self-improvement behaviors measured at T2# colnames(df_sbsa2_wide_pers_sa_mod_fu)df_sbsa2_wide_pers_sa_mod_fu <- df_sbsa2_wide_pers %>%left_join(group_assign) %>%filter(rando=="Self-Acceptance"&!is.na(valid_t2)) %>%select(-rando, -ends_with("_t1")) %>%left_join(df_sbsa2_wide_pers_sa_mod_fu)
6.7.1 Big Five traits (run models)
Run models for all traits with a template & loop:
Show the code
# create templates:# 1st, for facet-specific acceptance goalstrait_template_mod_goal_accept <-'trait_t1 =~ 1*ind01_t1 + lamb2*ind02_t1 + lamb3*ind03_t1 # This specifies the measurement model for trait_t1 trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for trait_t2 with the equality constrained factor loadingsgoals =~ 1*ind_goal_1 + ind_goal_2 + ind_goal_3 # latent variable for moderatortrait_t2 ~ 1*trait_t1 # This parameter regresses trait_t2 perfectly on trait_t1d_trait_1 =~ 1*trait_t2 # This defines the latent change score factor as measured perfectly by scores on trait_t2trait_t2 ~ 0*1 # This line constrains the intercept of trait_t2 to 0trait_t2 ~~ 0*trait_t2 # This fixes the variance of trait_t2 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t1 ~ 1 # This estimates the intercept of trait_t1 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t1 ~~ trait_t1 # This estimates the variance of trait_t1 trait_t1 ~ goals # This estimates the moderation effect on personality at T1d_trait_1 ~ trait_t1 + goals # This estimates the self-feedback parameter and the moderation effect on the change scoregoals ~ 0*1 # This fixes the intercept of the moderator to 0goals ~~ goals # This estimates the variance of the moderatorind01_t1 ~~ ind01_t2 # This allows residual covariance on indicator X1 across T1 and T2ind02_t1 ~~ ind02_t2 # This allows residual covariance on indicator X2 across T1 and T2ind03_t1 ~~ ind03_t2 # This allows residual covariance on indicator X3 across T1 and T2ind01_t1 ~~ res1*ind01_t1 # This allows residual variance on indicator X1 at T1 ind02_t1 ~~ res2*ind02_t1 # This allows residual variance on indicator X2 at T1ind03_t1 ~~ res3*ind03_t1 # This allows residual variance on indicator X3 at T1ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2 ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind02_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind03_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind_goal_1 ~~ ind_goal_1ind_goal_2 ~~ ind_goal_2ind_goal_3 ~~ ind_goal_3ind_goal_1 ~ 1ind_goal_2 ~ 1ind_goal_3 ~ 1'trait_facets_nrs <-list(a1 =c(1:3), b2 =c(4:6), c3 =c(7:9), d4 =c(10:12), e5 =c(13:15)) # matching facet nrs to traits # loop across 5 traits -> change in ideal selffor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal (6 = ideal)# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! mod_names =paste0("sa07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal_accept, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), "ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"),"ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7")), trait_model_fit))} # loop across 5 traits -> change in current selffor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal (6 = ideal)# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! mod_names =paste0("sa07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal_accept, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), # current instead of ideal"ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"),"ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp7")), template_filled)) # current instead of idealeval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp7")), trait_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for ideal self ratings)trait_template_mod_goal_accept_fu <-'trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for trait_t2 trait_t3 =~ 1*ind01_t3 + lamb2*ind02_t3 + lamb3*ind03_t3 # This specifies the measurement model for trait_t3 with the equality constrained factor loadingsgoals =~ 1*ind_goal_1 + ind_goal_2 + ind_goal_3 # latent variable for moderatortrait_t3 ~ 1*trait_t2 # This parameter regresses trait_t3 perfectly on trait_t2d_trait_1 =~ 1*trait_t3 # This defines the latent change score factor as measured perfectly by scores on trait_t3trait_t3 ~ 0*1 # This line constrains the intercept of trait_t3 to 0trait_t3 ~~ 0*trait_t3 # This fixes the variance of trait_t3 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t2 ~ 1 # This estimates the intercept of trait_t2 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t2 ~~ trait_t2 # This estimates the variance of trait_t2 trait_t2 ~ goals # This estimates the moderation effect on personality at T2d_trait_1 ~ trait_t2 + goals # This estimates the self-feedback parameter and the moderation effect on the change scoregoals ~ 0*1 # This fixes the intercept of the moderator to 0goals ~~ goals # This estimates the variance of the moderatorind01_t2 ~~ ind01_t3 # This allows residual covariance on indicator X1 across T2 and T3ind02_t2 ~~ ind02_t3 # This allows residual covariance on indicator X2 across T2 and T3ind03_t2 ~~ ind03_t3 # This allows residual covariance on indicator X3 across T2 and T3ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t3 ~~ res1*ind01_t3 # This allows residual variance on indicator X1 at T3 ind02_t3 ~~ res2*ind02_t3 # This allows residual variance on indicator X2 at T3 ind03_t3 ~~ res3*ind03_t3 # This allows residual variance on indicator X3 at T3ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind01_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind02_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind03_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind_goal_1 ~~ ind_goal_1ind_goal_2 ~~ ind_goal_2ind_goal_3 ~~ ind_goal_3ind_goal_1 ~ 1ind_goal_2 ~ 1ind_goal_3 ~ 1'# loop across 5 traits -> change in ideal self (from T2 to T3)for (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal (6 = ideal)# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! mod_names =paste0("sa07_", str_pad(trait_facets_nrs[[i]], 2, pad ="0"), "_t1") template_filled <-str_replace_all(trait_template_mod_goal_accept_fu, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), "ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"),"ind_goal_1"= mod_names[1], "ind_goal_2"= mod_names[2], "ind_goal_3"= mod_names[3])) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7_fu")), trait_model_fit))} # 2nd, for frequency of self-acceptance behaviortrait_template_mod_frequ_accept <-'trait_t1 =~ 1*ind01_t1 + lamb2*ind02_t1 + lamb3*ind03_t1 # This specifies the measurement model for extra_t1 trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for extra_t2 with the equality constrained factor loadingsfrequ =~ 1*sa04_01_t2 + sa04_02_t2 + sa04_03_t2 # latent variable for moderatortrait_t2 ~ 1*trait_t1 # This parameter regresses trait_t2 perfectly on trait_t1d_trait_1 =~ 1*trait_t2 # This defines the latent change score factor as measured perfectly by scores on trait_t2trait_t2 ~ 0*1 # This line constrains the intercept of trait_t2 to 0trait_t2 ~~ 0*trait_t2 # This fixes the variance of trait_t2 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t1 ~ 1 # This estimates the intercept of trait_t1 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t1 ~~ trait_t1 # This estimates the variance of trait_t1 trait_t1 ~ frequ # This estimates the moderation effect on personality at T1d_trait_1 ~ trait_t1 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind01_t1 ~~ ind01_t2 # This allows residual covariance on indicator X1 across T1 and T2ind02_t1 ~~ ind02_t2 # This allows residual covariance on indicator X2 across T1 and T2ind03_t1 ~~ ind03_t2 # This allows residual covariance on indicator X3 across T1 and T2ind01_t1 ~~ res1*ind01_t1 # This allows residual variance on indicator X1 at T1 ind02_t1 ~~ res2*ind02_t1 # This allows residual variance on indicator X2 at T1ind03_t1 ~~ res3*ind03_t1 # This allows residual variance on indicator X3 at T1ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2 ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind02_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind03_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2sa04_01_t2 ~~ sa04_01_t2sa04_02_t2 ~~ sa04_02_t2sa04_03_t2 ~~ sa04_03_t2sa04_01_t2 ~ 1sa04_02_t2 ~ 1sa04_03_t2 ~ 1'# loop across 5 traits -> change in ideal selffor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ_accept, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), "ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7")), template_filled)) eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7")), trait_model_fit))} # loop across 5 traits -> change in current selffor (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ_accept, c("trait"= short_name,"ind01"=paste0(short_name, "_curr_par1"), # current instead of ideal"ind02"=paste0(short_name, "_curr_par2"), "ind03"=paste0(short_name, "_curr_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp7")), template_filled)) # current instead of idealeval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp7")), trait_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for current self ratings)trait_template_mod_frequ_accept_fu <-'trait_t2 =~ 1*ind01_t2 + lamb2*ind02_t2 + lamb3*ind03_t2 # This specifies the measurement model for extra_t2 trait_t3 =~ 1*ind01_t3 + lamb2*ind02_t3 + lamb3*ind03_t3 # This specifies the measurement model for extra_t3 with the equality constrained factor loadingsfrequ =~ 1*sa04_01_t2 + sa04_02_t2 + sa04_03_t2 # latent variable for moderatortrait_t3 ~ 1*trait_t2 # This parameter regresses trait_t3 perfectly on trait_t2d_trait_1 =~ 1*trait_t3 # This defines the latent change score factor as measured perfectly by scores on trait_t3trait_t3 ~ 0*1 # This line constrains the intercept of trait_t3 to 0trait_t3 ~~ 0*trait_t3 # This fixes the variance of trait_t3 to 0d_trait_1 ~ 1 # This estimates the intercept of the change score trait_t2 ~ 1 # This estimates the intercept of trait_t2 d_trait_1 ~~ d_trait_1 # This estimates the variance of the change scores trait_t2 ~~ trait_t2 # This estimates the variance of trait_t2 trait_t2 ~ frequ # This estimates the moderation effect on personality at T2d_trait_1 ~ trait_t2 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind01_t2 ~~ ind01_t3 # This allows residual covariance on indicator X1 across T2 and T3ind02_t2 ~~ ind02_t3 # This allows residual covariance on indicator X2 across T2 and T3ind03_t2 ~~ ind03_t3 # This allows residual covariance on indicator X3 across T2 and T3ind01_t2 ~~ res1*ind01_t2 # This allows residual variance on indicator X1 at T2 ind02_t2 ~~ res2*ind02_t2 # This allows residual variance on indicator X2 at T2ind03_t2 ~~ res3*ind03_t2 # This allows residual variance on indicator X3 at T2ind01_t3 ~~ res1*ind01_t3 # This allows residual variance on indicator X1 at T3 ind02_t3 ~~ res2*ind02_t3 # This allows residual variance on indicator X2 at T3 ind03_t3 ~~ res3*ind03_t3 # This allows residual variance on indicator X3 at T3ind01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind02_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind03_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind01_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind02_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind03_t3 ~ m3*1 # This estimates the intercept of X3 at T3sa04_01_t2 ~~ sa04_01_t2sa04_02_t2 ~~ sa04_02_t2sa04_03_t2 ~~ sa04_03_t2sa04_01_t2 ~ 1sa04_02_t2 ~ 1sa04_03_t2 ~ 1'# loop across 5 traits -> change in ideal self (from T2 to T3)for (i in1:5) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal# items = paste0(bfi_versions[[6]], item_nrs) # using parcels instead! template_filled <-str_replace_all(trait_template_mod_frequ_accept_fu, c("trait"= short_name,"ind01"=paste0(short_name, "_ideal_par1"), "ind02"=paste0(short_name, "_ideal_par2"), "ind03"=paste0(short_name, "_ideal_par3"))) trait_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7_fu")), template_filled)) eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7_fu")), trait_model_fit))}
6.7.2 Big Five traits (ideal self)
6.7.2.1 Extraversion: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the extraversion change score (ideal-self) is not significantly different from zero, b = -0.022, p = 0.511.
6.7.2.2 Extraversion: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the extraversion change score (ideal-self) is not significantly different from zero, b = 0.045, p = 0.259.
6.7.2.3 Agreeableness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the agreeableness change score (ideal-self) is not significantly different from zero, b = -0.022, p = 0.419.
6.7.2.4 Agreeableness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the agreeableness change score (ideal-self) is not significantly different from zero, b = 0.062, p = 0.085.
6.7.2.5 Conscientiousness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the conscientiousness change score (ideal-self) is not significantly different from zero, b = -0.043, p = 0.057.
6.7.2.6 Conscientiousness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of specific, facet-level acceptance goals with the neuroticism change score (ideal-self) is not significantly different from zero, b = 0, p = 0.993.
6.7.2.8 Neuroticism: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the neuroticism change score (ideal-self) is not significantly different from zero, b = -0.015, p = 0.711.
6.7.2.9 Openness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the openness change score (ideal-self) is not significantly different from zero, b = -0.025, p = 0.219.
6.7.2.10 Openness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of frequency of self-acceptance behaviors with the openness change score (ideal-self) is not significantly different from zero, b = 0.027, p = 0.257.
6.7.3 Big Five traits (ideal self - follow-up at T3)
6.7.3.1 Extraversion: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the extraversion change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.035, p = 0.347.
6.7.3.2 Extraversion: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the extraversion change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.005, p = 0.888.
6.7.3.3 Agreeableness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the agreeableness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.013, p = 0.569.
6.7.3.4 Agreeableness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the agreeableness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.043, p = 0.191.
6.7.3.5 Conscientiousness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the conscientiousness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.002, p = 0.938.
6.7.3.6 Conscientiousness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the conscientiousness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.072, p = 0.05.
6.7.3.7 Neuroticism: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the neuroticism change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.006, p = 0.812.
6.7.3.8 Neuroticism: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the neuroticism change score from T2 to T3 (ideal-self) is not significantly different from zero (at p < .001), b = 0.078, p = 0.044.
6.7.3.9 Openness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the openness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.015, p = 0.47.
6.7.3.10 Openness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of frequency of self-acceptance behaviors with the openness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.012, p = 0.603.
6.7.4 Big Five traits (current self)
6.7.4.1 Extraversion: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the extraversion change score (current-self) is not significantly different from zero, b = -0.015, p = 0.715.
6.7.4.2 Extraversion: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the extraversion change score (current-self) is not significantly different from zero, b = 0.046, p = 0.211.
6.7.4.3 Agreeableness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the agreeableness change score (current-self) is not significantly different from zero, b = -0.051, p = 0.06.
6.7.4.4 Agreeableness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the agreeableness change score (current-self) is not significantly different from zero, b = 0.036, p = 0.214.
6.7.4.5 Conscientiousness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the conscientiousness change score (current-self) is not significantly different from zero, b = -0.029, p = 0.426.
6.7.4.6 Conscientiousness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of specific, facet-level acceptance goals with the neuroticism change score (current-self) is not significantly different from zero, b = 0.046, p = 0.202.
6.7.4.8 Neuroticism: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of the frequency of self-acceptance behaviors with the neuroticism change score (current-self) is not significantly different from zero (at p < .001), b = -0.101, p = 0.029.
6.7.4.9 Openness: specific, facet-level acceptance goals as moderator of change
Results summary (goals = trait/facet specific acceptance goal):
The moderation effect of specific, facet-level acceptance goals with the openness change score (current-self) is not significantly different from zero, b = -0.001, p = 0.987.
6.7.4.10 Openness: frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self improvement behavior):
The moderation effect of frequency of self-acceptance behaviors with the openness change score (current-self) is not significantly different from zero, b = 0.071, p = 0.086.
6.7.5 Big Five facets (run models)
Run models for all facets with a template & loop:
Show the code
# create templates:# 1st, for facet-specific acceptance goalfacet_template_mod_goal_accept <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)facet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 facet_t1 ~ ind_goal # This estimates the moderation effect on personality at T1d_facet_1 ~ facet_t1 + ind_goal # This estimates the self-feedback parameter and the moderation effect on the change scoreind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facets -> changes in ideal selffor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[6]], item_nrs) mod_name =paste0("sa07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal_accept, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7")), facet_model_fit))} # loop across 15 facets -> changes in current selffor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[5]], item_nrs) # current instead of ideal! mod_name =paste0("sa07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal_accept, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp7")), template_filled)) # current instead of ideal!eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_specif_hyp7")), facet_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for ideal self ratings)facet_template_mod_goal_accept_fu <-'facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2facet_t3 =~ 1*ind1_t3 + lamb2*ind2_t3 + lamb3*ind3_t3 + lamb4*ind4_t3 # This specifies the measurement model for facet at T3 (with equality constraints)facet_t3 ~ 1*facet_t2 # This parameter regresses facet_t3 perfectly on facet_t2d_facet_1 =~ 1*facet_t3 # This defines the latent change score factor as measured perfectly by scores on facet_t3facet_t3 ~ 0*1 # This line constrains the intercept of facet_t3 to 0facet_t3 ~~ 0*facet_t3 # This fixes the variance of facet_t3 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t2 ~ 1 # This estimates the intercept of facet_t2 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t2 ~~ facet_t2 # This estimates the variance of facet_t2 facet_t2 ~ ind_goal # This estimates the moderation effect on personality at T2d_facet_1 ~ facet_t2 + ind_goal # This estimates the self-feedback parameter and the moderation effect on the change scoreind1_t2 ~~ ind1_t3 # This allows residual covariance on indicator X1 across T2 and T3ind2_t2 ~~ ind2_t3 # This allows residual covariance on indicator X2 across T2 and T3ind3_t2 ~~ ind3_t3 # This allows residual covariance on indicator X3 across T2 and T3ind4_t2 ~~ ind4_t3 # This allows residual covariance on indicator X4 across T2 and T3ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t3 ~~ res1*ind1_t3 # This allows residual variance on indicator X1 at T3 ind2_t3 ~~ res2*ind2_t3 # This allows residual variance on indicator X2 at T3 ind3_t3 ~~ res3*ind3_t3 # This allows residual variance on indicator X3 at T3ind4_t3 ~~ res4*ind4_t3 # This allows residual variance on indicator X4 at T3ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind2_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind3_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind4_t3 ~ m4*1 # This estimates the intercept of X4 at T3ind_goal ~~ ind_goalind_goal ~ 1'# loop across 15 facets -> changes in ideal self (from T2 to T3)for (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[6]], item_nrs) mod_name =paste0("sa07_", str_pad(i-5, 2, pad ="0"), "_t1") template_filled <-str_replace_all(facet_template_mod_goal_accept_fu, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4],"ind_goal"= mod_name)) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_specif_hyp7_fu")), facet_model_fit))} # 2nd, for frequency of self-acceptance behaviorfacet_template_mod_frequ_accept <-'facet_t1 =~ 1*ind1_t1 + lamb2*ind2_t1 + lamb3*ind3_t1 + lamb4*ind4_t1 # This specifies the measurement model for facet at T1facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2 (with equality constraints)frequ =~ 1*sa04_01_t2 + sa04_02_t2 + sa04_03_t2 # latent variable for moderatorfacet_t2 ~ 1*facet_t1 # This parameter regresses facet_t2 perfectly on facet_t1d_facet_1 =~ 1*facet_t2 # This defines the latent change score factor as measured perfectly by scores on facet_t2facet_t2 ~ 0*1 # This line constrains the intercept of facet_t2 to 0facet_t2 ~~ 0*facet_t2 # This fixes the variance of facet_t2 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t1 ~ 1 # This estimates the intercept of facet_t1 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t1 ~~ facet_t1 # This estimates the variance of facet_t1 facet_t1 ~ frequ # This estimates the moderation effect on personality at T1d_facet_1 ~ facet_t1 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind1_t1 ~~ ind1_t2 # This allows residual covariance on indicator X1 across T1 and T2ind2_t1 ~~ ind2_t2 # This allows residual covariance on indicator X2 across T1 and T2ind3_t1 ~~ ind3_t2 # This allows residual covariance on indicator X3 across T1 and T2ind4_t1 ~~ ind4_t2 # This allows residual covariance on indicator X4 across T1 and T2ind1_t1 ~~ res1*ind1_t1 # This allows residual variance on indicator X1 at T1 ind2_t1 ~~ res2*ind2_t1 # This allows residual variance on indicator X2 at T1ind3_t1 ~~ res3*ind3_t1 # This allows residual variance on indicator X3 at T1ind4_t1 ~~ res4*ind4_t1 # This allows residual variance on indicator X4 at T1ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2 ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1ind2_t1 ~ m2*1 # This estimates the intercept of X2 at T1ind3_t1 ~ m3*1 # This estimates the intercept of X3 at T1ind4_t1 ~ m4*1 # This estimates the intercept of X4 at T1ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2sa04_01_t2 ~~ sa04_01_t2sa04_02_t2 ~~ sa04_02_t2sa04_03_t2 ~~ sa04_03_t2sa04_01_t2 ~ 1sa04_02_t2 ~ 1sa04_03_t2 ~ 1'# loop across 15 facets -> changes in ideal selffor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[6]], item_nrs) template_filled <-str_replace_all(facet_template_mod_frequ_accept, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7")), facet_model_fit))} # loop across 15 facets -> changes in current selffor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[5]], item_nrs) # current instead of ideal! template_filled <-str_replace_all(facet_template_mod_frequ_accept, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp7")), template_filled)) # current instead of ideal!eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[5], 6), "_frequ_hyp7")), facet_model_fit))} # we also need separate models for follow-up (fu), that is, changes from T2 to T3 (only for ideal self ratings)facet_template_mod_frequ_accept_fu <-'facet_t2 =~ 1*ind1_t2 + lamb2*ind2_t2 + lamb3*ind3_t2 + lamb4*ind4_t2 # This specifies the measurement model for facet at T2facet_t3 =~ 1*ind1_t3 + lamb2*ind2_t3 + lamb3*ind3_t3 + lamb4*ind4_t3 # This specifies the measurement model for facet at T3 (with equality constraints)frequ =~ 1*sa04_01_t2 + sa04_02_t2 + sa04_03_t2 # latent variable for moderatorfacet_t3 ~ 1*facet_t2 # This parameter regresses facet_t3 perfectly on facet_t2d_facet_1 =~ 1*facet_t3 # This defines the latent change score factor as measured perfectly by scores on facet_t3facet_t3 ~ 0*1 # This line constrains the intercept of facet_t3 to 0facet_t3 ~~ 0*facet_t3 # This fixes the variance of facet_t3 to 0d_facet_1 ~ 1 # This estimates the intercept of the change score facet_t2 ~ 1 # This estimates the intercept of facet_t2 d_facet_1 ~~ d_facet_1 # This estimates the variance of the change scores facet_t2 ~~ facet_t2 # This estimates the variance of facet_t2 facet_t2 ~ frequ # This estimates the moderation effect on personality at T2d_facet_1 ~ facet_t2 + frequ # This estimates the self-feedback parameter and the moderation effect on the change scorefrequ ~ 0*1 # This fixes the intercept of the moderator to 0frequ ~~ frequ # This estimates the variance of the moderatorind1_t2 ~~ ind1_t3 # This allows residual covariance on indicator X1 across T2 and T3ind2_t2 ~~ ind2_t3 # This allows residual covariance on indicator X2 across T2 and T3ind3_t2 ~~ ind3_t3 # This allows residual covariance on indicator X3 across T2 and T3ind4_t2 ~~ ind4_t3 # This allows residual covariance on indicator X4 across T2 and T3ind1_t2 ~~ res1*ind1_t2 # This allows residual variance on indicator X1 at T2 ind2_t2 ~~ res2*ind2_t2 # This allows residual variance on indicator X2 at T2ind3_t2 ~~ res3*ind3_t2 # This allows residual variance on indicator X3 at T2ind4_t2 ~~ res4*ind4_t2 # This allows residual variance on indicator X4 at T2ind1_t3 ~~ res1*ind1_t3 # This allows residual variance on indicator X1 at T3 ind2_t3 ~~ res2*ind2_t3 # This allows residual variance on indicator X2 at T3 ind3_t3 ~~ res3*ind3_t3 # This allows residual variance on indicator X3 at T3ind4_t3 ~~ res4*ind4_t3 # This allows residual variance on indicator X4 at T3ind1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2ind2_t2 ~ m2*1 # This estimates the intercept of X2 at T2ind3_t2 ~ m3*1 # This estimates the intercept of X3 at T2ind4_t2 ~ m4*1 # This estimates the intercept of X4 at T2ind1_t3 ~ 0*1 # This constrains the intercept of X1 to 0 at T3ind2_t3 ~ m2*1 # This estimates the intercept of X2 at T3ind3_t3 ~ m3*1 # This estimates the intercept of X3 at T3ind4_t3 ~ m4*1 # This estimates the intercept of X4 at T3sa04_01_t2 ~~ sa04_01_t2sa04_02_t2 ~~ sa04_02_t2sa04_03_t2 ~~ sa04_03_t2sa04_01_t2 ~ 1sa04_02_t2 ~ 1sa04_03_t2 ~ 1'# loop across 15 facets -> changes in ideal selffor (i in6:length(b5_vars)) { item_nrs = b5_vars[[i]][[1]] short_name =str_trunc(names(b5_vars)[i], 5, ellipsis ="")# use BFI version combined pre&post ideal items =paste0(bfi_versions[[6]], item_nrs) template_filled <-str_replace_all(facet_template_mod_frequ_accept_fu, c("facet"= short_name,"ind1"= items[1], "ind2"= items[2], "ind3"= items[3], "ind4"= items[4])) facet_model_fit <-lavaan(template_filled, data=df_sbsa2_wide_pers_sa_mod_fu, estimator='mlr', fixed.x=FALSE, missing='fiml')eval(call("<-", as.name(paste0("mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7_fu")), template_filled))eval(call("<-", as.name(paste0("fit_mi_lcs_", short_name, "_", str_sub(names(bfi_versions)[6], 6), "_frequ_hyp7_fu")), facet_model_fit))}
6.7.6 Big Five facets (ideal self)
6.7.6.1 Sociability - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the sociability change score (ideal-self) is not significantly different from zero (at p < .001), b = -0.049, p = 0.044.
6.7.6.2 Sociability - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with sociability change score (ideal-self) is not significantly different from zero, b = -0.021, p = 0.678.
6.7.6.3 Assertiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the assertiveness change score (ideal-self) is not significantly different from zero, b = 0.024, p = 0.207.
6.7.6.4 Assertiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with assertiveness change score (ideal-self) is not significantly different from zero, b = -0.009, p = 0.839.
6.7.6.5 Energy - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the energy change score (ideal-self) is not significantly different from zero, b = -0.002, p = 0.839.
6.7.6.6 Energy - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the energy change score (ideal-self) is not significantly different from zero, b = -0.06, p = 0.066.
6.7.6.7 Compassion - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the compassion change score (ideal-self) is not significantly different from zero, b = -0.009, p = 0.774.
6.7.6.8 Compassion - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the compassion change score (ideal-self) is not significantly different from zero, b = 0.028, p = 0.665.
6.7.6.9 Respectfulness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the respectfulness change score (ideal-self) is not significantly different from zero, b = -0.007, p = 0.68.
6.7.6.10 Respectfulness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with respectfulness change score (ideal-self) is not significantly different from zero, b = 0.043, p = 0.221.
6.7.6.11 Trust - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the trust change score (ideal-self) is not significantly different from zero, b = -0.011, p = 0.595.
6.7.6.12 Trust - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the trust change score (ideal-self) is not significantly different from zero (at p < .001), b = -0.097, p = 0.042.
6.7.6.13 Organization - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the organization change score (ideal-self) is not significantly different from zero, b = 0.022, p = 0.278.
6.7.6.14 Organization - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the organization change score (ideal-self) is not significantly different from zero, b = -0.023, p = 0.641.
6.7.6.15 Productiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the productiveness change score (ideal-self) is not significantly different from zero, b = 0.026, p = 0.091.
6.7.6.16 Productiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the productiveness change score (ideal-self) is not significantly different from zero (at p < .001), b = -0.088, p = 0.011.
6.7.6.17 Responsibility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the responsibility change score (ideal-self) is not significantly different from zero, b = -0.024, p = 0.178.
6.7.6.18 Responsibility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the responsibility change score (ideal-self) is not significantly different from zero (at p < .001), b = 0.08, p = 0.046.
6.7.6.19 Anxiety - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the anxiety change score (ideal-self) is not significantly different from zero, b = -0.005, p = 0.762.
6.7.6.20 Anxiety - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the anxiety change score (ideal-self) is not significantly different from zero, b = -0.034, p = 0.418.
6.7.6.21 Depression - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the depression change score (ideal-self) is not significantly different from zero, b = -0.004, p = 0.792.
6.7.6.22 Depression - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the depression change score (ideal-self) is not significantly different from zero, b = 0.003, p = 0.935.
6.7.6.23 Volatility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the volatility change score (ideal-self) is not significantly different from zero, b = -0.03, p = 0.146.
6.7.6.24 Volatility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the volatility change score (ideal-self) is significantly different from zero, b = -0.052, p = 0.318.
6.7.6.25 Curiosity - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the curiosity change score (ideal-self) is not significantly different from zero, b = 0.006, p = 0.757.
6.7.6.26 Curiosity - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the curiosity change score (ideal-self) is not significantly different from zero, b = 0.029, p = 0.414.
6.7.6.27 Aesthetic - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the aesthetic change score (ideal-self) is not significantly different from zero, b = 0.004, p = 0.679.
6.7.6.28 Aesthetic - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the aesthetic change score (ideal-self) is not significantly different from zero, b = -0.038, p = 0.194.
6.7.6.29 Imagination - specific, facet-level acceptance goal as moderator of change
Results summary (*sa07_$$_t1* = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the imagination change score (ideal-self) is not significantly different from zero, b = -0.027, p = 0.184.
6.7.6.30 Imagination - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the imagination change score (ideal-self) is not significantly different from zero, b = 0, p = 0.996.
6.7.7 Big Five facets (ideal self - follow-up T3)
6.7.7.1 Sociability - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the sociability change score from T2 to T3 (ideal-self) is not significantly different from zero (at p < .001), b = 0.019, p = 0.277.
6.7.7.2 Sociability - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with sociability change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.014, p = 0.742.
6.7.7.3 Assertiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the assertiveness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.01, p = 0.628.
6.7.7.4 Assertiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with assertiveness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.009, p = 0.852.
6.7.7.5 Energy - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the energy change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.007, p = 0.625.
6.7.7.6 Energy - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the energy change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.012, p = 0.751.
6.7.7.7 Compassion - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the compassion change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.016, p = 0.582.
6.7.7.8 Compassion - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the compassion change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.028, p = 0.683.
6.7.7.9 Respectfulness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the respectfulness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.004, p = 0.772.
6.7.7.10 Respectfulness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with respectfulness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.051, p = 0.083.
6.7.7.11 Trust - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the trust change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.006, p = 0.758.
6.7.7.12 Trust - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the trust change score from T2 to T3 (ideal-self) is not significantly different from zero (at p < .001), b = 0.051, p = 0.23.
6.7.7.13 Organization - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the organization change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.004, p = 0.828.
6.7.7.14 Organization - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the organization change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.018, p = 0.672.
6.7.7.15 Productiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the productiveness change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.003, p = 0.857.
6.7.7.16 Productiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the productiveness change score from T2 to T3 (ideal-self) is not significantly different from zero (at p < .001), b = 0.04, p = 0.355.
6.7.7.17 Responsibility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the responsibility change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.018, p = 0.408.
6.7.7.18 Responsibility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the responsibility change score from T2 to T3 (ideal-self) is not significantly different from zero (at p < .001), b = -0.097, p = 0.095.
6.7.7.19 Anxiety - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the anxiety change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.022, p = 0.077.
6.7.7.20 Anxiety - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the anxiety change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.03, p = 0.376.
6.7.7.21 Depression - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the depression change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.016, p = 0.219.
6.7.7.22 Depression - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the depression change score from T2 to T3 (ideal-self) is not significantly different from zero, b = -0.046, p = 0.143.
6.7.7.23 Volatility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the volatility change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.005, p = 0.78.
6.7.7.24 Volatility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the volatility change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.035, p = 0.458.
6.7.7.25 Curiosity - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the curiosity change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.008, p = 0.751.
6.7.7.26 Curiosity - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the curiosity change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.063, p = 0.172.
6.7.7.27 Aesthetic - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the aesthetic change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.018, p = 0.141.
6.7.7.28 Aesthetic - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the aesthetic change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.004, p = 0.868.
6.7.7.29 Imagination - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the imagination change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.019, p = 0.408.
6.7.7.30 Imagination - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the imagination change score from T2 to T3 (ideal-self) is not significantly different from zero, b = 0.011, p = 0.846.
6.7.8 Big Five facets (current self)
6.7.8.1 Sociability - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the sociability change score (current-self) is not significantly different from zero, b = -0.002, p = 0.95.
6.7.8.2 Sociability - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with sociability change score (current-self) is not significantly different from zero, b = -0.02, p = 0.748.
6.7.8.3 Assertiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the assertiveness change score (current-self) is not significantly different from zero, b = 0.017, p = 0.47.
6.7.8.4 Assertiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with assertiveness change score (current-self) is not significantly different from zero, b = 0.074, p = 0.122.
6.7.8.5 Energy - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the energy change score (current-self) is not significantly different from zero, b = -0.001, p = 0.921.
6.7.8.6 Energy - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the energy change score (current-self) is not significantly different from zero, b = -0.036, p = 0.183.
6.7.8.7 Compassion - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the compassion change score (current-self) is not significantly different from zero, b = -0.038, p = 0.262.
6.7.8.8 Compassion - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the compassion change score (current-self) is not significantly different from zero, b = -0.012, p = 0.856.
6.7.8.9 Respectfulness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The facet-specific acceptance goal significantly moderates changes in respectfulness (current-self) between T1 and T2 (but also not at p < .001 …), b = -0.094, p = 0.002.
6.7.8.10 Respectfulness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the respectfulness change score (current-self) is not significantly different from zero, b = 0.052, p = 0.23.
6.7.8.11 Trust - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the trust change score (current-self) is not significantly different from zero (at p < .001), b = -0.056, p = 0.042.
6.7.8.12 Trust - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the trust change score (current-self) is not significantly different from zero, b = -0.052, p = 0.322.
6.7.8.13 Organization - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the organization change score (current-self) is not significantly different from zero, b = 0.055, p = 0.109.
6.7.8.14 Organization - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the organization change score (current-self) is not significantly different from zero, b = -0.05, p = 0.423.
6.7.8.15 Productiveness - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the productiveness change score (current-self) is not significantly different from zero, b = 0.006, p = 0.853.
6.7.8.16 Productiveness - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the productiveness change score (current-self) is not significantly different from zero, b = -0.097, p = 0.095.
6.7.8.17 Responsibility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the responsibility change score (current-self) is not significantly different from zero, b = -0.001, p = 0.936.
6.7.8.18 Responsibility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the responsibility change score (current-self) is not significantly different from zero, b = -0.005, p = 0.844.
6.7.8.19 Anxiety - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the anxiety change score (current-self) is not significantly different from zero, b = -0.037, p = 0.227.
6.7.8.20 Anxiety - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the anxiety change score (current-self) is not significantly different from zero (at p < .001), b = 0.16, p = 0.02.
6.7.8.21 Depression - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the depression change score (current-self) is not significantly different from zero, b = -0.013, p = 0.432.
6.7.8.22 Depression - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the depression change score (current-self) is not significantly different from zero (at p < .001), b = 0.085, p = 0.03.
6.7.8.23 Volatility - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the volatility change score (current-self) is not significantly different from zero, b = -0.016, p = 0.668.
6.7.8.24 Volatility - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the volatility change score (current-self) is significantly different from zero, b = 0.018, p = 0.78.
6.7.8.25 Curiosity - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the curiosity change score (current-self) is not significantly different from zero (at p < .001), b = 0.04, p = 0.028.
6.7.8.26 Curiosity - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the curiosity change score (current-self) is not significantly different from zero, b = 0.053, p = 0.147.
6.7.8.27 Aesthetic - specific, facet-level acceptance goal as moderator of change
Results summary (sa07_xx_t1 = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the aesthetic change score (current-self) is not significantly different from zero, b = 0.01, p = 0.384.
6.7.8.28 Aesthetic - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the aesthetic change score (current-self) is not significantly different from zero, b = -0.055, p = 0.058.
6.7.8.29 Imagination - specific, facet-level acceptance goal as moderator of change
Results summary (*sa07_$$_t1* = trait/facet specific acceptance goal):
The moderation effect of the facet-specific acceptance goal with the imagination change score (current-self) is not significantly different from zero, b = -0.006, p = 0.811.
6.7.8.30 Imagination - frequency of self-acceptance behaviors as moderator of change
Results summary (frequ = frequency of self-acceptance behavior):
The moderation effect of the frequency of self-acceptance behaviors with the imagination change score (current-self) is not significantly different from zero, b = 0.033, p = 0.579.
Results summary across the Big Five traits: trait-specific acceptance goals (goals) and frequency of self-acceptance behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp7[1:10, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
extraversion
goals
0.674
2.594
0.027
-0.022
-0.073
0.511
extraversion
frequency
0.791
3.078
0.013
0.045
0.129
0.259
agreeableness
goals
0.789
2.857
0.001
-0.022
-0.076
0.419
agreeableness
frequency
0.860
3.146
0.001
0.062
0.168
0.085
conscientiousness
goals
1.296
4.110
0.000
-0.043
-0.145
0.057
conscientiousness
frequency
1.369
4.335
0.000
0.084
0.195
0.010
neuroticism
goals
0.475
1.357
0.000
0.000
-0.001
0.993
neuroticism
frequency
0.481
1.368
0.000
-0.015
-0.032
0.711
openness
goals
1.229
5.729
0.000
-0.025
-0.092
0.219
openness
frequency
1.175
5.437
0.000
0.027
0.093
0.257
No moderator effects at the domain level that are significantly different from zero at p < .001:
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in ideal-level conscientiousness.
Results summary across the Big Five facets: trait-specific acceptance goals (goals) and frequency of self-acceptance behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp7[11:40, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
sociability
goals
0.060
0.314
0.913
-0.049
-0.344
0.044
sociability
frequency
0.001
0.003
0.999
-0.021
-0.080
0.678
assertiveness
goals
0.004
0.023
0.994
0.024
0.196
0.207
assertiveness
frequency
0.015
0.089
0.977
-0.009
-0.039
0.839
energy
goals
0.668
4.147
0.001
-0.002
-0.016
0.839
energy
frequency
0.797
4.548
0.000
-0.060
-0.252
0.066
compassion
goals
0.876
2.470
0.075
-0.009
-0.035
0.774
compassion
frequency
0.869
2.351
0.059
0.028
0.055
0.665
respectfulness
goals
0.380
2.533
0.369
-0.007
-0.066
0.680
respectfulness
frequency
0.429
2.916
0.313
0.043
0.213
0.221
trust
goals
0.475
1.731
0.002
-0.011
-0.057
0.595
trust
frequency
0.508
1.857
0.001
-0.097
-0.262
0.042
organization
goals
0.219
0.829
0.234
0.022
0.120
0.278
organization
frequency
0.296
1.130
0.154
-0.023
-0.065
0.641
productiveness
goals
0.285
1.193
0.032
0.026
0.150
0.091
productiveness
frequency
0.397
1.656
0.002
-0.088
-0.267
0.011
responsibility
goals
0.669
2.523
0.152
-0.024
-0.129
0.178
responsibility
frequency
0.685
2.524
0.138
0.080
0.217
0.046
anxiety
goals
1.543
6.100
0.004
-0.005
-0.028
0.762
anxiety
frequency
1.460
5.662
0.008
-0.034
-0.099
0.418
depression
goals
1.393
5.262
0.000
-0.004
-0.022
0.792
depression
frequency
1.382
5.108
0.000
0.003
0.008
0.935
volatility
goals
0.330
1.298
0.062
-0.030
-0.152
0.146
volatility
frequency
0.293
1.140
0.105
-0.052
-0.148
0.318
curiosity
goals
0.885
4.194
0.029
0.006
0.035
0.757
curiosity
frequency
0.914
4.446
0.012
0.029
0.104
0.414
aesthetic
goals
0.468
2.754
0.046
0.004
0.033
0.679
aesthetic
frequency
0.542
3.330
0.024
-0.038
-0.170
0.194
imagination
goals
1.207
3.643
0.008
-0.027
-0.119
0.184
imagination
frequency
1.054
3.204
0.019
0.000
-0.001
0.996
No moderator effects at the facet level that are significantly different from zero at p < .001:
Only at p < .05: The facet-specific acceptance goal moderates changes in ideal-level sociability (opposite direction of effect).
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in ideal-level trust (opposite direction of effect).
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in ideal-level productiveness (opposite direction of effect).
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in ideal-level responsibility.
Results summary across the Big Five traits: trait-specific acceptance goals (goals) and frequency of self-acceptance behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp7_curr[1:10, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
extraversion
goals
0.510
1.902
0.002
-0.015
-0.055
0.715
extraversion
frequency
0.470
1.802
0.000
0.046
0.130
0.211
agreeableness
goals
0.550
2.733
0.024
-0.051
-0.247
0.060
agreeableness
frequency
0.421
2.051
0.059
0.036
0.128
0.214
conscientiousness
goals
0.578
1.660
0.002
-0.029
-0.092
0.426
conscientiousness
frequency
0.499
1.434
0.000
0.043
0.091
0.256
neuroticism
goals
0.244
0.655
0.066
0.046
0.125
0.202
neuroticism
frequency
0.117
0.312
0.267
-0.101
-0.201
0.029
openness
goals
0.435
1.838
0.010
-0.001
-0.002
0.987
openness
frequency
0.484
2.028
0.000
0.071
0.218
0.086
No moderation effects at the domain level that are significantly different from zero at p < .001:
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in current-level neuroticism.
Results summary across the Big Five facets: trait-specific acceptance goals (goals) and frequency of self-acceptance behaviors (frequency) as moderators on the latent change score. *_main* refers to the main effects (change scores) and *_mod* to the moderation effects.
kable(df_table_hyp7_curr[11:40, ], digits =3)
trait
moderator
est_main
std_main
p_main
est_mod
std_mod
p_mod
sociability
goals
0.651
1.478
0.001
-0.002
-0.006
0.950
sociability
frequency
0.636
1.460
0.000
-0.020
-0.034
0.748
assertiveness
goals
0.199
0.728
0.249
0.017
0.081
0.470
assertiveness
frequency
0.280
1.076
0.023
0.074
0.208
0.122
energy
goals
0.306
1.703
0.021
-0.001
-0.011
0.921
energy
frequency
0.324
1.757
0.015
-0.036
-0.143
0.183
compassion
goals
0.531
1.396
0.228
-0.038
-0.141
0.262
compassion
frequency
0.322
0.820
0.380
-0.012
-0.022
0.856
respectfulness
goals
1.468
4.458
0.000
-0.094
-0.376
0.002
respectfulness
frequency
0.919
2.776
0.019
0.052
0.115
0.230
trust
goals
0.199
0.928
0.213
-0.056
-0.360
0.042
trust
frequency
0.150
0.706
0.352
-0.052
-0.179
0.322
organization
goals
0.297
0.628
0.025
0.055
0.167
0.109
organization
frequency
0.342
0.736
0.012
-0.050
-0.079
0.423
productiveness
goals
0.279
0.708
0.102
0.006
0.022
0.853
productiveness
frequency
0.320
0.814
0.061
-0.097
-0.181
0.095
responsibility
goals
0.551
3.055
0.039
-0.001
-0.010
0.936
responsibility
frequency
0.528
2.878
0.004
-0.005
-0.020
0.844
anxiety
goals
0.607
1.480
0.004
-0.037
-0.132
0.227
anxiety
frequency
0.346
0.834
0.010
0.160
0.290
0.020
depression
goals
0.575
2.010
0.000
-0.013
-0.066
0.432
depression
frequency
0.437
1.538
0.000
0.085
0.222
0.030
volatility
goals
0.330
0.815
0.012
-0.016
-0.050
0.668
volatility
frequency
0.313
0.771
0.019
0.018
0.032
0.780
curiosity
goals
0.073
NA
0.774
0.040
NA
0.028
curiosity
frequency
0.315
NA
0.143
0.053
NA
0.147
aesthetic
goals
0.206
1.594
0.132
0.010
0.105
0.384
aesthetic
frequency
0.292
2.304
0.049
-0.055
-0.316
0.058
imagination
goals
0.711
2.609
0.051
-0.006
-0.032
0.811
imagination
frequency
0.661
2.423
0.029
0.033
0.089
0.579
No moderation effects at the facet level that are significantly different from zero at p < .001:
Only at p < .01: The facet-specific acceptance goal moderates changes in current-level respectfulness.
Only at p < .05: The facet-specific acceptance goal moderates changes in current-level trust.
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in current-level anxiety.
Only at p < .05: The frequency of self-acceptance behaviors moderates changes in current-level depression.
Only at p < .05: The facet-specific acceptance goal moderates changes in current-level curiosity.
6.8 Differences in change across experimental groups (Hyp 6 in paper)
Change in psychological well-being indicators as well as the difference between real- and ideal-self will differ across groups at follow-up. Based on exploratory results from Study 1, we expect that the self-acceptance intervention leads to more pronounced well-being gains and less pronounced differences between current- and ideal-self personality compared to the self-improvement intervention.
6.8.1 Well-being change: differences across groups
6.8.1.1 Life satisfaction
Life satisfaction: fitting multi-group models
Show the code
# adapt latent change score model from above and add grouping factor in estimation (also add vectorized equality constraints to the model)# configural invariancemi_lcs_swls_group_config <-'swls_t1 =~ 1*sw06_01_t1 + c("lamb2a", "lamb2b")*sw06_02_t1 + c("lamb3a", "lamb3b")*sw06_03_t1 + c("lamb4a", "lamb4b")*sw06_04_t1 # This specifies the measurement model for swls_t1 swls_t2 =~ 1*sw06_01_t2 + c("lamb2a", "lamb2b")*sw06_02_t2 + c("lamb3a", "lamb3b")*sw06_03_t2 + c("lamb4a", "lamb4b")*sw06_04_t2 # This specifies the measurement model for swls_t2 with the equality constrained factor loadingsswls_t2 ~ 1*swls_t1 # This parameter regresses swls_t2 perfectly on swls_t1d_swls_1 =~ 1*swls_t2 # This defines the latent change score factor as measured perfectly by scores on swls_t2swls_t2 ~ 0*1 # This line constrains the intercept of swls_t2 to 0swls_t2 ~~ 0*swls_t2 # This fixes the variance of swls_t2 to 0d_swls_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score swls_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of swls_t1 d_swls_1 ~~ c("d_var_a", "d_var_b")*d_swls_1 # This estimates the variance of the change scores swls_t1 ~~ c("wb_var_a", "wb_var_b")*swls_t1 # This estimates the variance of the swls_t1 d_swls_1 ~ c("fb_a", "fb_b")*swls_t1 # This estimates the self-feedback parametersw06_01_t1 ~~ c("cov1a", "cov1b")*sw06_01_t2 # This allows residual covariance on indicator X1 across T1 and T2sw06_02_t1 ~~ c("cov2a", "cov2b")*sw06_02_t2 # This allows residual covariance on indicator X2 across T1 and T2sw06_03_t1 ~~ c("cov3a", "cov3b")*sw06_03_t2 # This allows residual covariance on indicator X3 across T1 and T2sw06_04_t1 ~~ c("cov4a", "cov4b")*sw06_04_t2 # This allows residual covariance on indicator X4 across T1 and T2sw06_01_t1 ~~ c("res1a", "res1b")*sw06_01_t1 # This allows residual variance on indicator X1 at T1 sw06_02_t1 ~~ c("res2a", "res2b")*sw06_02_t1 # This allows residual variance on indicator X2 at T1sw06_03_t1 ~~ c("res3a", "res3b")*sw06_03_t1 # This allows residual variance on indicator X3 at T1sw06_04_t1 ~~ c("res4a", "res4b")*sw06_04_t1 # This allows residual variance on indicator X4 at T1sw06_01_t2 ~~ c("res1a", "res1b")*sw06_01_t2 # This allows residual variance on indicator X1 at T2 sw06_02_t2 ~~ c("res2a", "res2b")*sw06_02_t2 # This allows residual variance on indicator X2 at T2 sw06_03_t2 ~~ c("res3a", "res3b")*sw06_03_t2 # This allows residual variance on indicator X3 at T2sw06_04_t2 ~~ c("res4a", "res4b")*sw06_04_t2 # This allows residual variance on indicator X4 at T2sw06_01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1sw06_02_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1sw06_03_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1sw06_04_t1 ~ c("m4a", "m4b")*1 # This estimates the intercept of X4 at T1sw06_01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2sw06_02_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2sw06_03_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2sw06_04_t2 ~ c("m4a", "m4b")*1 # This estimates the intercept of X4 at T2'lcs_swls_group_config <-sem(mi_lcs_swls_group_config, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando")# weak invariancemi_lcs_swls_group_weak <-'swls_t1 =~ 1*sw06_01_t1 + c("lamb2", "lamb2")*sw06_02_t1 + c("lamb3", "lamb3")*sw06_03_t1 + c("lamb4", "lamb4")*sw06_04_t1 # This specifies the measurement model for swls_t1 swls_t2 =~ 1*sw06_01_t2 + c("lamb2", "lamb2")*sw06_02_t2 + c("lamb3", "lamb3")*sw06_03_t2 + c("lamb4", "lamb4")*sw06_04_t2 # This specifies the measurement model for swls_t2 with the equality constrained factor loadingsswls_t2 ~ 1*swls_t1 # This parameter regresses swls_t2 perfectly on swls_t1d_swls_1 =~ 1*swls_t2 # This defines the latent change score factor as measured perfectly by scores on swls_t2swls_t2 ~ 0*1 # This line constrains the intercept of swls_t2 to 0swls_t2 ~~ 0*swls_t2 # This fixes the variance of swls_t2 to 0d_swls_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score swls_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of swls_t1 d_swls_1 ~~ c("d_var_a", "d_var_b")*d_swls_1 # This estimates the variance of the change scores swls_t1 ~~ c("wb_var_a", "wb_var_b")*swls_t1 # This estimates the variance of the swls_t1 d_swls_1 ~ c("fb_a", "fb_b")*swls_t1 # This estimates the self-feedback parametersw06_01_t1 ~~ c("cov1a", "cov1b")*sw06_01_t2 # This allows residual covariance on indicator X1 across T1 and T2sw06_02_t1 ~~ c("cov2a", "cov2b")*sw06_02_t2 # This allows residual covariance on indicator X2 across T1 and T2sw06_03_t1 ~~ c("cov3a", "cov3b")*sw06_03_t2 # This allows residual covariance on indicator X3 across T1 and T2sw06_04_t1 ~~ c("cov4a", "cov4b")*sw06_04_t2 # This allows residual covariance on indicator X4 across T1 and T2sw06_01_t1 ~~ c("res1a", "res1b")*sw06_01_t1 # This allows residual variance on indicator X1 at T1 sw06_02_t1 ~~ c("res2a", "res2b")*sw06_02_t1 # This allows residual variance on indicator X2 at T1sw06_03_t1 ~~ c("res3a", "res3b")*sw06_03_t1 # This allows residual variance on indicator X3 at T1sw06_04_t1 ~~ c("res4a", "res4b")*sw06_04_t1 # This allows residual variance on indicator X4 at T1sw06_01_t2 ~~ c("res1a", "res1b")*sw06_01_t2 # This allows residual variance on indicator X1 at T2 sw06_02_t2 ~~ c("res2a", "res2b")*sw06_02_t2 # This allows residual variance on indicator X2 at T2 sw06_03_t2 ~~ c("res3a", "res3b")*sw06_03_t2 # This allows residual variance on indicator X3 at T2sw06_04_t2 ~~ c("res4a", "res4b")*sw06_04_t2 # This allows residual variance on indicator X4 at T2sw06_01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1sw06_02_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1sw06_03_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1sw06_04_t1 ~ c("m4a", "m4b")*1 # This estimates the intercept of X4 at T1sw06_01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2sw06_02_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2sw06_03_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2sw06_04_t2 ~ c("m4a", "m4b")*1 # This estimates the intercept of X4 at T2'lcs_swls_group_weak <-sem(mi_lcs_swls_group_weak, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal ="loadings")# strong invariancemi_lcs_swls_group_strong <-'swls_t1 =~ 1*sw06_01_t1 + c("lamb2", "lamb2")*sw06_02_t1 + c("lamb3", "lamb3")*sw06_03_t1 + c("lamb4", "lamb4")*sw06_04_t1 # This specifies the measurement model for swls_t1 swls_t2 =~ 1*sw06_01_t2 + c("lamb2", "lamb2")*sw06_02_t2 + c("lamb3", "lamb3")*sw06_03_t2 + c("lamb4", "lamb4")*sw06_04_t2 # This specifies the measurement model for swls_t2 with the equality constrained factor loadingsswls_t2 ~ 1*swls_t1 # This parameter regresses swls_t2 perfectly on swls_t1d_swls_1 =~ 1*swls_t2 # This defines the latent change score factor as measured perfectly by scores on swls_t2swls_t2 ~ 0*1 # This line constrains the intercept of swls_t2 to 0swls_t2 ~~ 0*swls_t2 # This fixes the variance of swls_t2 to 0d_swls_1 ~ c("d_int", "d_int")*1 # This estimates the intercept of the change score swls_t1 ~ c("wb_int", "wb_int")*1 # This estimates the intercept of swls_t1 d_swls_1 ~~ c("d_var_a", "d_var_b")*d_swls_1 # This estimates the variance of the change scores swls_t1 ~~ c("wb_var_a", "wb_var_b")*swls_t1 # This estimates the variance of the swls_t1 d_swls_1 ~ c("fb_a", "fb_b")*swls_t1 # This estimates the self-feedback parametersw06_01_t1 ~~ c("cov1a", "cov1b")*sw06_01_t2 # This allows residual covariance on indicator X1 across T1 and T2sw06_02_t1 ~~ c("cov2a", "cov2b")*sw06_02_t2 # This allows residual covariance on indicator X2 across T1 and T2sw06_03_t1 ~~ c("cov3a", "cov3b")*sw06_03_t2 # This allows residual covariance on indicator X3 across T1 and T2sw06_04_t1 ~~ c("cov4a", "cov4b")*sw06_04_t2 # This allows residual covariance on indicator X4 across T1 and T2sw06_01_t1 ~~ c("res1a", "res1b")*sw06_01_t1 # This allows residual variance on indicator X1 at T1 sw06_02_t1 ~~ c("res2a", "res2b")*sw06_02_t1 # This allows residual variance on indicator X2 at T1sw06_03_t1 ~~ c("res3a", "res3b")*sw06_03_t1 # This allows residual variance on indicator X3 at T1sw06_04_t1 ~~ c("res4a", "res4b")*sw06_04_t1 # This allows residual variance on indicator X4 at T1sw06_01_t2 ~~ c("res1a", "res1b")*sw06_01_t2 # This allows residual variance on indicator X1 at T2 sw06_02_t2 ~~ c("res2a", "res2b")*sw06_02_t2 # This allows residual variance on indicator X2 at T2 sw06_03_t2 ~~ c("res3a", "res3b")*sw06_03_t2 # This allows residual variance on indicator X3 at T2sw06_04_t2 ~~ c("res4a", "res4b")*sw06_04_t2 # This allows residual variance on indicator X4 at T2sw06_01_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1sw06_02_t1 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T1sw06_03_t1 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T1sw06_04_t1 ~ c("m4", "m4")*1 # This estimates the intercept of X4 at T1sw06_01_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2sw06_02_t2 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T2sw06_03_t2 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T2sw06_04_t2 ~ c("m4", "m4")*1 # This estimates the intercept of X4 at T2'lcs_swls_group_strong <-sem(mi_lcs_swls_group_strong, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal =c("intercepts", "loadings"))
Life satisfaction: results
# model comparison tests for measurement invariancelavTestLRT(lcs_swls_group_config, lcs_swls_group_weak, lcs_swls_group_strong)
Scaled Chi-Squared Difference Test (method = "satorra.bentler.2001")
lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.
Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
lcs_swls_group_config 50 13077 13248 125.00
lcs_swls_group_weak 53 13073 13231 127.59 3.1604 3 0.36755
lcs_swls_group_strong 58 13073 13208 137.46 9.9114 5 0.07779 .
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
# show model with varying latent change parameters # -> key parameter is "d_swls_1 ~1"# labelled parameter as "d_int_a" & "d_int_b" (a = Self-Acceptance group, b = Self-Improvement group)kable(broom::tidy(lcs_swls_group_weak, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_swls_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_swls_1 ~1
d_int_a
0.559
0.952
4.360
0
d_swls_1 ~1
d_int_b
1.054
1.477
6.972
0
# constrained to be equal in the strong measurement invariance model:kable(broom::tidy(lcs_swls_group_strong, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_swls_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_swls_1 ~1
d_int
0.799
1.281
7.851
0
d_swls_1 ~1
d_int
0.799
1.173
7.851
0
Slightly more positive change in life satisfaction in the Self-Acceptance group but no substantial differences according to the LRTs.
# whole model (weak invariance)summary(lcs_swls_group_weak, fit.measures=TRUE, standardized=TRUE, rsquare=F)
# adapt latent change score model from above and add grouping factor in estimation (also add vectorized equality constraints to the model)# configural invariancemi_lcs_meaning_group_config <-'meaning_t1 =~ 1*meaning_par1_t1 + c("lamb2a", "lamb2b")*meaning_par2_t1 + c("lamb3a", "lamb3b")*meaning_par3_t1 # This specifies the measurement model for meaning_t1 meaning_t2 =~ 1*meaning_par1_t2 + c("lamb2a", "lamb2b")*meaning_par2_t2 + c("lamb3a", "lamb3b")*meaning_par3_t2 # This specifies the measurement model for meaning_t2 with the equality constrained factor loadingsmeaning_t2 ~ 1*meaning_t1 # This parameter regresses meaning_t2 perfectly on meaning_t1d_meaning_1 =~ 1*meaning_t2 # This defines the latent change score factor as measured perfectly by scores on meaning_t2meaning_t2 ~ 0*1 # This line constrains the intercept of meaning_t2 to 0meaning_t2 ~~ 0*meaning_t2 # This fixes the variance of meaning_t2 to 0d_meaning_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score meaning_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of meaning_t1 d_meaning_1 ~~ c("d_var_a", "d_var_b")*d_meaning_1 # This estimates the variance of the change scores meaning_t1 ~~ c("wb_var_a", "wb_var_b")*meaning_t1 # This estimates the variance of the meaning_t1 d_meaning_1 ~ c("fb_a", "fb_b")*meaning_t1 # This estimates the self-feedback parametermeaning_par1_t1 ~~ c("cov1a", "cov1b")*meaning_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2meaning_par2_t1 ~~ c("cov2a", "cov2b")*meaning_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2meaning_par3_t1 ~~ c("cov3a", "cov3b")*meaning_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2meaning_par1_t1 ~~ c("res1a", "res1b")*meaning_par1_t1 # This allows residual variance on indicator X1 at T1 meaning_par2_t1 ~~ c("res2a", "res2b")*meaning_par2_t1 # This allows residual variance on indicator X2 at T1meaning_par3_t1 ~~ c("res3a", "res3b")*meaning_par3_t1 # This allows residual variance on indicator X3 at T1meaning_par1_t2 ~~ c("res1a", "res1b")*meaning_par1_t2 # This allows residual variance on indicator X1 at T2 meaning_par2_t2 ~~ c("res2a", "res2b")*meaning_par2_t2 # This allows residual variance on indicator X2 at T2 meaning_par3_t2 ~~ c("res3a", "res3b")*meaning_par3_t2 # This allows residual variance on indicator X3 at T2meaning_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1meaning_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1meaning_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1meaning_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2meaning_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2meaning_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_meaning_group_config <-sem(mi_lcs_meaning_group_config, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando")# weak invariancemi_lcs_meaning_group_weak <-'meaning_t1 =~ 1*meaning_par1_t1 + c("lamb2", "lamb2")*meaning_par2_t1 + c("lamb3", "lamb3")*meaning_par3_t1 # This specifies the measurement model for meaning_t1 meaning_t2 =~ 1*meaning_par1_t2 + c("lamb2", "lamb2")*meaning_par2_t2 + c("lamb3", "lamb3")*meaning_par3_t2 # This specifies the measurement model for meaning_t2 with the equality constrained factor loadingsmeaning_t2 ~ 1*meaning_t1 # This parameter regresses meaning_t2 perfectly on meaning_t1d_meaning_1 =~ 1*meaning_t2 # This defines the latent change score factor as measured perfectly by scores on meaning_t2meaning_t2 ~ 0*1 # This line constrains the intercept of meaning_t2 to 0meaning_t2 ~~ 0*meaning_t2 # This fixes the variance of meaning_t2 to 0d_meaning_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score meaning_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of meaning_t1 d_meaning_1 ~~ c("d_var_a", "d_var_b")*d_meaning_1 # This estimates the variance of the change scores meaning_t1 ~~ c("wb_var_a", "wb_var_b")*meaning_t1 # This estimates the variance of the meaning_t1 d_meaning_1 ~ c("fb_a", "fb_b")*meaning_t1 # This estimates the self-feedback parametermeaning_par1_t1 ~~ c("cov1a", "cov1b")*meaning_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2meaning_par2_t1 ~~ c("cov2a", "cov2b")*meaning_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2meaning_par3_t1 ~~ c("cov3a", "cov3b")*meaning_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2meaning_par1_t1 ~~ c("res1a", "res1b")*meaning_par1_t1 # This allows residual variance on indicator X1 at T1 meaning_par2_t1 ~~ c("res2a", "res2b")*meaning_par2_t1 # This allows residual variance on indicator X2 at T1meaning_par3_t1 ~~ c("res3a", "res3b")*meaning_par3_t1 # This allows residual variance on indicator X3 at T1meaning_par1_t2 ~~ c("res1a", "res1b")*meaning_par1_t2 # This allows residual variance on indicator X1 at T2 meaning_par2_t2 ~~ c("res2a", "res2b")*meaning_par2_t2 # This allows residual variance on indicator X2 at T2 meaning_par3_t2 ~~ c("res3a", "res3b")*meaning_par3_t2 # This allows residual variance on indicator X3 at T2meaning_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1meaning_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1meaning_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1meaning_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2meaning_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2meaning_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_meaning_group_weak <-sem(mi_lcs_meaning_group_weak, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal ="loadings")# strong invariancemi_lcs_meaning_group_strong <-'meaning_t1 =~ 1*meaning_par1_t1 + c("lamb2", "lamb2")*meaning_par2_t1 + c("lamb3", "lamb3")*meaning_par3_t1 # This specifies the measurement model for meaning_t1 meaning_t2 =~ 1*meaning_par1_t2 + c("lamb2", "lamb2")*meaning_par2_t2 + c("lamb3", "lamb3")*meaning_par3_t2 # This specifies the measurement model for meaning_t2 with the equality constrained factor loadingsmeaning_t2 ~ 1*meaning_t1 # This parameter regresses meaning_t2 perfectly on meaning_t1d_meaning_1 =~ 1*meaning_t2 # This defines the latent change score factor as measured perfectly by scores on meaning_t2meaning_t2 ~ 0*1 # This line constrains the intercept of meaning_t2 to 0meaning_t2 ~~ 0*meaning_t2 # This fixes the variance of meaning_t2 to 0d_meaning_1 ~ c("d_int", "d_int")*1 # This estimates the intercept of the change score meaning_t1 ~ c("wb_int", "wb_int")*1 # This estimates the intercept of meaning_t1 d_meaning_1 ~~ c("d_var_a", "d_var_b")*d_meaning_1 # This estimates the variance of the change scores meaning_t1 ~~ c("wb_var_a", "wb_var_b")*meaning_t1 # This estimates the variance of the meaning_t1 d_meaning_1 ~ c("fb_a", "fb_b")*meaning_t1 # This estimates the self-feedback parametermeaning_par1_t1 ~~ c("cov1a", "cov1b")*meaning_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2meaning_par2_t1 ~~ c("cov2a", "cov2b")*meaning_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2meaning_par3_t1 ~~ c("cov3a", "cov3b")*meaning_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2meaning_par1_t1 ~~ c("res1a", "res1b")*meaning_par1_t1 # This allows residual variance on indicator X1 at T1 meaning_par2_t1 ~~ c("res2a", "res2b")*meaning_par2_t1 # This allows residual variance on indicator X2 at T1meaning_par3_t1 ~~ c("res3a", "res3b")*meaning_par3_t1 # This allows residual variance on indicator X3 at T1meaning_par1_t2 ~~ c("res1a", "res1b")*meaning_par1_t2 # This allows residual variance on indicator X1 at T2 meaning_par2_t2 ~~ c("res2a", "res2b")*meaning_par2_t2 # This allows residual variance on indicator X2 at T2 meaning_par3_t2 ~~ c("res3a", "res3b")*meaning_par3_t2 # This allows residual variance on indicator X3 at T2meaning_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1meaning_par2_t1 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T1meaning_par3_t1 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T1meaning_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2meaning_par2_t2 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T2meaning_par3_t2 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T2'lcs_meaning_group_strong <-sem(mi_lcs_meaning_group_strong, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal =c("intercepts", "loadings"))
Meaning in life: results
# model comparison tests for measurement invariancelavTestLRT(lcs_meaning_group_config, lcs_meaning_group_weak, lcs_meaning_group_strong)
Scaled Chi-Squared Difference Test (method = "satorra.bentler.2001")
lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.
Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
lcs_meaning_group_config 24 9552.9 9688.3 49.776
lcs_meaning_group_weak 26 9550.4 9676.8 51.287 1.5699 2 0.4561
lcs_meaning_group_strong 30 9544.3 9652.5 53.131 1.7531 4 0.7810
# show model with varying latent change parameters # -> key parameter is "d_meaning_1 ~1"# labelled parameter as "d_int_a" & "d_int_b" (a = Self-Acceptance group, b = Self-Improvement group)kable(broom::tidy(lcs_meaning_group_weak, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_meaning_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_meaning_1 ~1
d_int_a
0.931
1.522
6.622
0
d_meaning_1 ~1
d_int_b
1.129
1.564
6.169
0
# constrained to be equal in the strong measurement invariance model:kable(broom::tidy(lcs_meaning_group_strong, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_meaning_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_meaning_1 ~1
d_int
1.01
1.620
8.933
0
d_meaning_1 ~1
d_int
1.01
1.426
8.933
0
Slightly more positive change in meaning in life in the Self-Improvement group but no substantial differences according to the LRTs.
# whole model (weak invariance)summary(lcs_meaning_group_weak, fit.measures=TRUE, standardized=TRUE, rsquare=F)
# adapt latent change score model from above and add grouping factor in estimation (also add vectorized equality constraints to the model)# configural invariancemi_lcs_selfes_group_config <-'selfes_t1 =~ 1*selfes_par1_t1 + c("lamb2a", "lamb2b")*selfes_par2_t1 + c("lamb3a", "lamb3b")*selfes_par3_t1 # This specifies the measurement model for selfes_t1 selfes_t2 =~ 1*selfes_par1_t2 + c("lamb2a", "lamb2b")*selfes_par2_t2 + c("lamb3a", "lamb3b")*selfes_par3_t2 # This specifies the measurement model for selfes_t2 with the equality constrained factor loadingsselfes_t2 ~ 1*selfes_t1 # This parameter regresses selfes_t2 perfectly on selfes_t1d_selfes_1 =~ 1*selfes_t2 # This defines the latent change score factor as measured perfectly by scores on selfes_t2selfes_t2 ~ 0*1 # This line constrains the intercept of selfes_t2 to 0selfes_t2 ~~ 0*selfes_t2 # This fixes the variance of selfes_t2 to 0d_selfes_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score selfes_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of selfes_t1 d_selfes_1 ~~ c("d_var_a", "d_var_b")*d_selfes_1 # This estimates the variance of the change scores selfes_t1 ~~ c("wb_var_a", "wb_var_b")*selfes_t1 # This estimates the variance of the selfes_t1 d_selfes_1 ~ c("fb_a", "fb_b")*selfes_t1 # This estimates the self-feedback parameterselfes_par1_t1 ~~ c("cov1a", "cov1b")*selfes_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2selfes_par2_t1 ~~ c("cov2a", "cov2b")*selfes_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2selfes_par3_t1 ~~ c("cov3a", "cov3b")*selfes_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2selfes_par1_t1 ~~ c("res1a", "res1b")*selfes_par1_t1 # This allows residual variance on indicator X1 at T1 selfes_par2_t1 ~~ c("res2a", "res2b")*selfes_par2_t1 # This allows residual variance on indicator X2 at T1selfes_par3_t1 ~~ c("res3a", "res3b")*selfes_par3_t1 # This allows residual variance on indicator X3 at T1selfes_par1_t2 ~~ c("res1a", "res1b")*selfes_par1_t2 # This allows residual variance on indicator X1 at T2 selfes_par2_t2 ~~ c("res2a", "res2b")*selfes_par2_t2 # This allows residual variance on indicator X2 at T2 selfes_par3_t2 ~~ c("res3a", "res3b")*selfes_par3_t2 # This allows residual variance on indicator X3 at T2selfes_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1selfes_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1selfes_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1selfes_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2selfes_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2selfes_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_selfes_group_config <-sem(mi_lcs_selfes_group_config, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando")# weak invariancemi_lcs_selfes_group_weak <-'selfes_t1 =~ 1*selfes_par1_t1 + c("lamb2", "lamb2")*selfes_par2_t1 + c("lamb3", "lamb3")*selfes_par3_t1 # This specifies the measurement model for selfes_t1 selfes_t2 =~ 1*selfes_par1_t2 + c("lamb2", "lamb2")*selfes_par2_t2 + c("lamb3", "lamb3")*selfes_par3_t2 # This specifies the measurement model for selfes_t2 with the equality constrained factor loadingsselfes_t2 ~ 1*selfes_t1 # This parameter regresses selfes_t2 perfectly on selfes_t1d_selfes_1 =~ 1*selfes_t2 # This defines the latent change score factor as measured perfectly by scores on selfes_t2selfes_t2 ~ 0*1 # This line constrains the intercept of selfes_t2 to 0selfes_t2 ~~ 0*selfes_t2 # This fixes the variance of selfes_t2 to 0d_selfes_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score selfes_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of selfes_t1 d_selfes_1 ~~ c("d_var_a", "d_var_b")*d_selfes_1 # This estimates the variance of the change scores selfes_t1 ~~ c("wb_var_a", "wb_var_b")*selfes_t1 # This estimates the variance of the selfes_t1 d_selfes_1 ~ c("fb_a", "fb_b")*selfes_t1 # This estimates the self-feedback parameterselfes_par1_t1 ~~ c("cov1a", "cov1b")*selfes_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2selfes_par2_t1 ~~ c("cov2a", "cov2b")*selfes_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2selfes_par3_t1 ~~ c("cov3a", "cov3b")*selfes_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2selfes_par1_t1 ~~ c("res1a", "res1b")*selfes_par1_t1 # This allows residual variance on indicator X1 at T1 selfes_par2_t1 ~~ c("res2a", "res2b")*selfes_par2_t1 # This allows residual variance on indicator X2 at T1selfes_par3_t1 ~~ c("res3a", "res3b")*selfes_par3_t1 # This allows residual variance on indicator X3 at T1selfes_par1_t2 ~~ c("res1a", "res1b")*selfes_par1_t2 # This allows residual variance on indicator X1 at T2 selfes_par2_t2 ~~ c("res2a", "res2b")*selfes_par2_t2 # This allows residual variance on indicator X2 at T2 selfes_par3_t2 ~~ c("res3a", "res3b")*selfes_par3_t2 # This allows residual variance on indicator X3 at T2selfes_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1selfes_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1selfes_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1selfes_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2selfes_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2selfes_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_selfes_group_weak <-sem(mi_lcs_selfes_group_weak, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal ="loadings")# strong invariancemi_lcs_selfes_group_strong <-'selfes_t1 =~ 1*selfes_par1_t1 + c("lamb2", "lamb2")*selfes_par2_t1 + c("lamb3", "lamb3")*selfes_par3_t1 # This specifies the measurement model for selfes_t1 selfes_t2 =~ 1*selfes_par1_t2 + c("lamb2", "lamb2")*selfes_par2_t2 + c("lamb3", "lamb3")*selfes_par3_t2 # This specifies the measurement model for selfes_t2 with the equality constrained factor loadingsselfes_t2 ~ 1*selfes_t1 # This parameter regresses selfes_t2 perfectly on selfes_t1d_selfes_1 =~ 1*selfes_t2 # This defines the latent change score factor as measured perfectly by scores on selfes_t2selfes_t2 ~ 0*1 # This line constrains the intercept of selfes_t2 to 0selfes_t2 ~~ 0*selfes_t2 # This fixes the variance of selfes_t2 to 0d_selfes_1 ~ c("d_int", "d_int")*1 # This estimates the intercept of the change score selfes_t1 ~ c("wb_int", "wb_int")*1 # This estimates the intercept of selfes_t1 d_selfes_1 ~~ c("d_var_a", "d_var_b")*d_selfes_1 # This estimates the variance of the change scores selfes_t1 ~~ c("wb_var_a", "wb_var_b")*selfes_t1 # This estimates the variance of the selfes_t1 d_selfes_1 ~ c("fb_a", "fb_b")*selfes_t1 # This estimates the self-feedback parameterselfes_par1_t1 ~~ c("cov1a", "cov1b")*selfes_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2selfes_par2_t1 ~~ c("cov2a", "cov2b")*selfes_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2selfes_par3_t1 ~~ c("cov3a", "cov3b")*selfes_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2selfes_par1_t1 ~~ c("res1a", "res1b")*selfes_par1_t1 # This allows residual variance on indicator X1 at T1 selfes_par2_t1 ~~ c("res2a", "res2b")*selfes_par2_t1 # This allows residual variance on indicator X2 at T1selfes_par3_t1 ~~ c("res3a", "res3b")*selfes_par3_t1 # This allows residual variance on indicator X3 at T1selfes_par1_t2 ~~ c("res1a", "res1b")*selfes_par1_t2 # This allows residual variance on indicator X1 at T2 selfes_par2_t2 ~~ c("res2a", "res2b")*selfes_par2_t2 # This allows residual variance on indicator X2 at T2 selfes_par3_t2 ~~ c("res3a", "res3b")*selfes_par3_t2 # This allows residual variance on indicator X3 at T2selfes_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1selfes_par2_t1 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T1selfes_par3_t1 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T1selfes_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2selfes_par2_t2 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T2selfes_par3_t2 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T2'lcs_selfes_group_strong <-sem(mi_lcs_selfes_group_strong, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal =c("intercepts", "loadings"))
Meaning in life: results
# model comparison tests for measurement invariancelavTestLRT(lcs_selfes_group_config, lcs_selfes_group_weak, lcs_selfes_group_strong)
Scaled Chi-Squared Difference Test (method = "satorra.bentler.2001")
lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.
Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
lcs_selfes_group_config 24 7216.5 7351.9 16.395
lcs_selfes_group_weak 26 7213.2 7339.6 17.124 0.7634 2 0.6827
lcs_selfes_group_strong 30 7212.7 7321.0 24.562 7.1744 4 0.1270
# show model with varying latent change parameters # -> key parameter is "d_selfes_1 ~1"# labelled parameter as "d_int_a" & "d_int_b" (a = Self-Acceptance group, b = Self-Improvement group)kable(broom::tidy(lcs_selfes_group_weak, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_selfes_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_selfes_1 ~1
d_int_a
0.866
1.886
5.675
0
d_selfes_1 ~1
d_int_b
1.388
2.757
8.332
0
# constrained to be equal in the strong measurement invariance model:kable(broom::tidy(lcs_selfes_group_strong, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_selfes_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_selfes_1 ~1
d_int
1.131
2.334
9.694
0
d_selfes_1 ~1
d_int
1.131
2.356
9.694
0
Slightly more positive change in self-esteem in the Self-Acceptance group but no substantial differences according to the LRTs.
# whole model (weak invariance)summary(lcs_selfes_group_weak, fit.measures=TRUE, standardized=TRUE, rsquare=F)
# adapt latent change score model from above and add grouping factor in estimation (also add vectorized equality constraints to the model)# configural invariancemi_lcs_concept_group_config <-'concept_t1 =~ 1*concept_par1_t1 + c("lamb2a", "lamb2b")*concept_par2_t1 + c("lamb3a", "lamb3b")*concept_par3_t1 # This specifies the measurement model for concept_t1 concept_t2 =~ 1*concept_par1_t2 + c("lamb2a", "lamb2b")*concept_par2_t2 + c("lamb3a", "lamb3b")*concept_par3_t2 # This specifies the measurement model for concept_t2 with the equality constrained factor loadingsconcept_t2 ~ 1*concept_t1 # This parameter regresses concept_t2 perfectly on concept_t1d_concept_1 =~ 1*concept_t2 # This defines the latent change score factor as measured perfectly by scores on concept_t2concept_t2 ~ 0*1 # This line constrains the intercept of concept_t2 to 0concept_t2 ~~ 0*concept_t2 # This fixes the variance of concept_t2 to 0d_concept_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score concept_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of concept_t1 d_concept_1 ~~ c("d_var_a", "d_var_b")*d_concept_1 # This estimates the variance of the change scores concept_t1 ~~ c("wb_var_a", "wb_var_b")*concept_t1 # This estimates the variance of the concept_t1 d_concept_1 ~ c("fb_a", "fb_b")*concept_t1 # This estimates the self-feedback parameterconcept_par1_t1 ~~ c("cov1a", "cov1b")*concept_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2concept_par2_t1 ~~ c("cov2a", "cov2b")*concept_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2concept_par3_t1 ~~ c("cov3a", "cov3b")*concept_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2concept_par1_t1 ~~ c("res1a", "res1b")*concept_par1_t1 # This allows residual variance on indicator X1 at T1 concept_par2_t1 ~~ c("res2a", "res2b")*concept_par2_t1 # This allows residual variance on indicator X2 at T1concept_par3_t1 ~~ c("res3a", "res3b")*concept_par3_t1 # This allows residual variance on indicator X3 at T1concept_par1_t2 ~~ c("res1a", "res1b")*concept_par1_t2 # This allows residual variance on indicator X1 at T2 concept_par2_t2 ~~ c("res2a", "res2b")*concept_par2_t2 # This allows residual variance on indicator X2 at T2 concept_par3_t2 ~~ c("res3a", "res3b")*concept_par3_t2 # This allows residual variance on indicator X3 at T2concept_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1concept_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1concept_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1concept_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2concept_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2concept_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_concept_group_config <-sem(mi_lcs_concept_group_config, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando")# weak invariancemi_lcs_concept_group_weak <-'concept_t1 =~ 1*concept_par1_t1 + c("lamb2", "lamb2")*concept_par2_t1 + c("lamb3", "lamb3")*concept_par3_t1 # This specifies the measurement model for concept_t1 concept_t2 =~ 1*concept_par1_t2 + c("lamb2", "lamb2")*concept_par2_t2 + c("lamb3", "lamb3")*concept_par3_t2 # This specifies the measurement model for concept_t2 with the equality constrained factor loadingsconcept_t2 ~ 1*concept_t1 # This parameter regresses concept_t2 perfectly on concept_t1d_concept_1 =~ 1*concept_t2 # This defines the latent change score factor as measured perfectly by scores on concept_t2concept_t2 ~ 0*1 # This line constrains the intercept of concept_t2 to 0concept_t2 ~~ 0*concept_t2 # This fixes the variance of concept_t2 to 0d_concept_1 ~ c("d_int_a", "d_int_b")*1 # This estimates the intercept of the change score concept_t1 ~ c("wb_int_a", "wb_int_b")*1 # This estimates the intercept of concept_t1 d_concept_1 ~~ c("d_var_a", "d_var_b")*d_concept_1 # This estimates the variance of the change scores concept_t1 ~~ c("wb_var_a", "wb_var_b")*concept_t1 # This estimates the variance of the concept_t1 d_concept_1 ~ c("fb_a", "fb_b")*concept_t1 # This estimates the self-feedback parameterconcept_par1_t1 ~~ c("cov1a", "cov1b")*concept_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2concept_par2_t1 ~~ c("cov2a", "cov2b")*concept_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2concept_par3_t1 ~~ c("cov3a", "cov3b")*concept_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2concept_par1_t1 ~~ c("res1a", "res1b")*concept_par1_t1 # This allows residual variance on indicator X1 at T1 concept_par2_t1 ~~ c("res2a", "res2b")*concept_par2_t1 # This allows residual variance on indicator X2 at T1concept_par3_t1 ~~ c("res3a", "res3b")*concept_par3_t1 # This allows residual variance on indicator X3 at T1concept_par1_t2 ~~ c("res1a", "res1b")*concept_par1_t2 # This allows residual variance on indicator X1 at T2 concept_par2_t2 ~~ c("res2a", "res2b")*concept_par2_t2 # This allows residual variance on indicator X2 at T2 concept_par3_t2 ~~ c("res3a", "res3b")*concept_par3_t2 # This allows residual variance on indicator X3 at T2concept_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1concept_par2_t1 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T1concept_par3_t1 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T1concept_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2concept_par2_t2 ~ c("m2a", "m2b")*1 # This estimates the intercept of X2 at T2concept_par3_t2 ~ c("m3a", "m3b")*1 # This estimates the intercept of X3 at T2'lcs_concept_group_weak <-sem(mi_lcs_concept_group_weak, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal ="loadings")# strong invariancemi_lcs_concept_group_strong <-'concept_t1 =~ 1*concept_par1_t1 + c("lamb2", "lamb2")*concept_par2_t1 + c("lamb3", "lamb3")*concept_par3_t1 # This specifies the measurement model for concept_t1 concept_t2 =~ 1*concept_par1_t2 + c("lamb2", "lamb2")*concept_par2_t2 + c("lamb3", "lamb3")*concept_par3_t2 # This specifies the measurement model for concept_t2 with the equality constrained factor loadingsconcept_t2 ~ 1*concept_t1 # This parameter regresses concept_t2 perfectly on concept_t1d_concept_1 =~ 1*concept_t2 # This defines the latent change score factor as measured perfectly by scores on concept_t2concept_t2 ~ 0*1 # This line constrains the intercept of concept_t2 to 0concept_t2 ~~ 0*concept_t2 # This fixes the variance of concept_t2 to 0d_concept_1 ~ c("d_int", "d_int")*1 # This estimates the intercept of the change score concept_t1 ~ c("wb_int", "wb_int")*1 # This estimates the intercept of concept_t1 d_concept_1 ~~ c("d_var_a", "d_var_b")*d_concept_1 # This estimates the variance of the change scores concept_t1 ~~ c("wb_var_a", "wb_var_b")*concept_t1 # This estimates the variance of the concept_t1 d_concept_1 ~ c("fb_a", "fb_b")*concept_t1 # This estimates the self-feedback parameterconcept_par1_t1 ~~ c("cov1a", "cov1b")*concept_par1_t2 # This allows residual covariance on indicator X1 across T1 and T2concept_par2_t1 ~~ c("cov2a", "cov2b")*concept_par2_t2 # This allows residual covariance on indicator X2 across T1 and T2concept_par3_t1 ~~ c("cov3a", "cov3b")*concept_par3_t2 # This allows residual covariance on indicator X3 across T1 and T2concept_par1_t1 ~~ c("res1a", "res1b")*concept_par1_t1 # This allows residual variance on indicator X1 at T1 concept_par2_t1 ~~ c("res2a", "res2b")*concept_par2_t1 # This allows residual variance on indicator X2 at T1concept_par3_t1 ~~ c("res3a", "res3b")*concept_par3_t1 # This allows residual variance on indicator X3 at T1concept_par1_t2 ~~ c("res1a", "res1b")*concept_par1_t2 # This allows residual variance on indicator X1 at T2 concept_par2_t2 ~~ c("res2a", "res2b")*concept_par2_t2 # This allows residual variance on indicator X2 at T2 concept_par3_t2 ~~ c("res3a", "res3b")*concept_par3_t2 # This allows residual variance on indicator X3 at T2concept_par1_t1 ~ 0*1 # This constrains the intercept of X1 to 0 at T1concept_par2_t1 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T1concept_par3_t1 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T1concept_par1_t2 ~ 0*1 # This constrains the intercept of X1 to 0 at T2concept_par2_t2 ~ c("m2", "m2")*1 # This estimates the intercept of X2 at T2concept_par3_t2 ~ c("m3", "m3")*1 # This estimates the intercept of X3 at T2'lcs_concept_group_strong <-sem(mi_lcs_concept_group_strong, data=df_sbsa2_wide_wb %>%filter(rando!="Waitlist-Control"), estimator='mlr', fixed.x=FALSE, missing='fiml', group ="rando", group.equal =c("intercepts", "loadings"))
Meaning in life: results
# model comparison tests for measurement invariancelavTestLRT(lcs_concept_group_config, lcs_concept_group_weak, lcs_concept_group_strong)
Scaled Chi-Squared Difference Test (method = "satorra.bentler.2001")
lavaan NOTE:
The "Chisq" column contains standard test statistics, not the
robust test that should be reported per model. A robust difference
test is a function of two standard (not robust) statistics.
Df AIC BIC Chisq Chisq diff Df diff Pr(>Chisq)
lcs_concept_group_config 24 7424.3 7559.7 31.207
lcs_concept_group_weak 26 7420.6 7546.9 31.474 0.26259 2 0.8770
lcs_concept_group_strong 30 7413.3 7521.6 32.179 0.69741 4 0.9516
# show model with varying latent change parameters # -> key parameter is "d_concept_1 ~1"# labelled parameter as "d_int_a" & "d_int_b" (a = Self-Acceptance group, b = Self-Improvement group)kable(broom::tidy(lcs_concept_group_weak, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_concept_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_concept_1 ~1
d_int_a
1.014
2.021
6.265
0
d_concept_1 ~1
d_int_b
1.113
2.247
8.203
0
# constrained to be equal in the strong measurement invariance model:kable(broom::tidy(lcs_concept_group_strong, conf.int =TRUE, conf.level =0.95) %>%select(term, label, estimate, std.all, statistic, p.value) %>%filter(term %in%c("d_concept_1 ~1 ")), digits =3)
term
label
estimate
std.all
statistic
p.value
d_concept_1 ~1
d_int
1.07
2.111
10.268
0
d_concept_1 ~1
d_int
1.07
2.181
10.268
0
Slightly more positive change in self-concept clarity in the Self-Acceptance group but no substantial differences according to the LRTs.
# whole model (weak invariance)summary(lcs_concept_group_weak, fit.measures=TRUE, standardized=TRUE, rsquare=F)
6.8.2 Current- and ideal-self personality differences across groups
Profile correlations by group and measurement occasion (mixed effects models) - results:
df_sbsa2_t1t2 <- df_sbsa2 %>%filter(rando!="Waitlist-Control"& time %in%c(1,2)) %>%mutate(time_d = time -1)psych::describeBy(df_sbsa2_t1t2$profile_corr_item_z, list(df_sbsa2_t1t2$rando, df_sbsa2_t1t2$time_d))
Descriptive statistics by group
: Self-Acceptance
: 0
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 335 0.42 0.49 0.37 0.38 0.43 -1.09 3.39 4.48 1.14 4.25 0.03
------------------------------------------------------------
: Self-Improvement
: 0
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 336 0.42 0.49 0.39 0.4 0.51 -0.89 2.33 3.22 0.47 0.36 0.03
------------------------------------------------------------
: Self-Acceptance
: 1
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 284 0.55 0.5 0.52 0.53 0.48 -1.07 2.17 3.23 0.36 0.5 0.03
------------------------------------------------------------
: Self-Improvement
: 1
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 291 0.56 0.48 0.54 0.55 0.56 -0.62 1.83 2.45 0.19 -0.53 0.03
Descriptive statistics by group
: Self-Acceptance
: 0
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 335 0.35 0.65 0.27 0.31 0.6 -1.07 3.77 4.84 0.93 2.14 0.04
------------------------------------------------------------
: Self-Improvement
: 0
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 337 0.34 0.67 0.29 0.31 0.7 -1.23 2.53 3.75 0.46 0.04 0.04
------------------------------------------------------------
: Self-Acceptance
: 1
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 284 0.51 0.67 0.46 0.48 0.66 -1.34 3.09 4.43 0.42 0.32 0.04
------------------------------------------------------------
: Self-Improvement
: 1
vars n mean sd median trimmed mad min max range skew kurtosis se
X1 1 292 0.53 0.66 0.49 0.5 0.69 -1.08 2.51 3.6 0.32 -0.32 0.04
With both conceptualizations of the similarity / difference of current- and ideal-level personality (profile correlations / squared differences), we find no significant effects of group (at T1) or of interaction effects of group by measurement occasion (at T2).
7 Exploratory findings
7.1 Differences across intervention groups (a)
Now confirmatory in Study 2.
7.2 Personal project dimensions (b)
We will explore b) whether the extent of change/acceptance is related to personal project dimension variables.
Not assessed, anymore, in study 2. Please see study 1 report for results.
7.3 Traits that were selected as change goals (c)
We will explore c) whether there are stronger rates of change/acceptance on traits that were selected as change goals than those that were not.
TBD!
7.4 Manipulation check (d)
Does self-improvement intervene on current self trait change (but not ideal self)? Does self-acceptance intervene on ideal self trait change (but not current self)?
kable(df_manip_check_curr_unlist %>%mutate(outcome =rep(sort(names(b5_vars)), each=4), term =c(rep(c("Intercept", "time", "group", "time*group"), 20))) %>%rename(p =`Pr(>|t|)`, str_err =`Std. Error`, est = Estimate) %>%select(outcome, term, est, str_err, p) %>%mutate(sig =ifelse(p < .05, ifelse(p < .01, ifelse(p < .001, "***", "**"), "*"), " ")) %>%arrange(factor(outcome, levels = (names(b5_vars)))), # order by BFI traits, digits =3)
outcome
term
est
str_err
p
sig
extraversion
Intercept
2.845
0.039
0.000
***
extraversion
time
0.113
0.026
0.000
***
extraversion
group
-0.069
0.054
0.203
extraversion
time*group
0.009
0.036
0.800
agreeableness
Intercept
3.633
0.032
0.000
***
agreeableness
time
0.048
0.023
0.038
*
agreeableness
group
-0.030
0.046
0.515
agreeableness
time*group
0.033
0.033
0.316
conscientiousness
Intercept
3.371
0.042
0.000
***
conscientiousness
time
0.075
0.027
0.006
**
conscientiousness
group
0.026
0.059
0.653
conscientiousness
time*group
0.026
0.038
0.490
neuroticism
Intercept
3.220
0.046
0.000
***
neuroticism
time
-0.172
0.030
0.000
***
neuroticism
group
0.033
0.065
0.611
neuroticism
time*group
-0.006
0.042
0.887
openness
Intercept
3.707
0.035
0.000
***
openness
time
0.079
0.023
0.001
***
openness
group
-0.029
0.050
0.555
openness
time*group
-0.001
0.032
0.977
sociability
Intercept
2.485
0.054
0.000
***
sociability
time
0.168
0.037
0.000
***
sociability
group
-0.040
0.076
0.600
sociability
time*group
-0.061
0.053
0.244
assertiveness
Intercept
2.908
0.048
0.000
***
assertiveness
time
0.076
0.035
0.028
*
assertiveness
group
-0.078
0.068
0.250
assertiveness
time*group
0.036
0.048
0.453
energy
Intercept
3.140
0.046
0.000
***
energy
time
0.094
0.038
0.014
*
energy
group
-0.088
0.065
0.176
energy
time*group
0.053
0.054
0.326
compassion
Intercept
3.753
0.041
0.000
***
compassion
time
0.042
0.037
0.254
compassion
group
-0.056
0.057
0.326
compassion
time*group
0.079
0.051
0.124
respectfulness
Intercept
4.035
0.038
0.000
***
respectfulness
time
0.013
0.032
0.680
respectfulness
group
-0.014
0.054
0.804
respectfulness
time*group
-0.002
0.044
0.955
trust
Intercept
3.110
0.045
0.000
***
trust
time
0.097
0.035
0.006
**
trust
group
-0.016
0.064
0.800
trust
time*group
0.011
0.049
0.831
organization
Intercept
3.445
0.052
0.000
***
organization
time
0.056
0.037
0.131
organization
group
0.109
0.074
0.143
organization
time*group
0.023
0.052
0.657
productiveness
Intercept
3.148
0.049
0.000
***
productiveness
time
0.141
0.039
0.000
***
productiveness
group
0.043
0.069
0.538
productiveness
time*group
0.001
0.054
0.978
responsibility
Intercept
3.522
0.045
0.000
***
responsibility
time
0.035
0.036
0.333
responsibility
group
-0.068
0.064
0.284
responsibility
time*group
0.052
0.051
0.311
anxiety
Intercept
3.525
0.050
0.000
***
anxiety
time
-0.147
0.037
0.000
***
anxiety
group
0.093
0.070
0.185
anxiety
time*group
-0.012
0.052
0.817
depression
Intercept
3.144
0.054
0.000
***
depression
time
-0.238
0.039
0.000
***
depression
group
0.004
0.076
0.954
depression
time*group
0.031
0.055
0.572
volatility
Intercept
2.993
0.054
0.000
***
volatility
time
-0.127
0.042
0.002
**
volatility
group
0.001
0.076
0.987
volatility
time*group
-0.045
0.058
0.441
curiosity
Intercept
3.817
0.043
0.000
***
curiosity
time
0.052
0.032
0.106
curiosity
group
-0.014
0.060
0.817
curiosity
time*group
0.006
0.045
0.899
aesthetic
Intercept
3.661
0.047
0.000
***
aesthetic
time
0.047
0.036
0.192
aesthetic
group
-0.087
0.066
0.185
aesthetic
time*group
0.036
0.050
0.474
imagination
Intercept
3.642
0.045
0.000
***
imagination
time
0.141
0.035
0.000
***
imagination
group
0.014
0.063
0.824
imagination
time*group
-0.046
0.049
0.349
No significant group effects (higher trait level in self-improvement group at baseline) and also no significant differences in the changes over time in current-self trait levels (timeXgroup). Significant (at p < .001) changes over time in current-self trait levels (time) for 3 of the domains and five of the facets (independent of intervention group membership).
kable(df_manip_check_ideal_unlist %>%mutate(outcome =rep(sort(names(b5_vars)), each=4), term =c(rep(c("Intercept", "time", "group", "time*group"), 20))) %>%rename(p =`Pr(>|t|)`, str_err =`Std. Error`, est = Estimate) %>%select(outcome, term, est, str_err, p) %>%mutate(sig =ifelse(p < .05, ifelse(p < .01, ifelse(p < .001, "***", "**"), "*"), " ")) %>%arrange(factor(outcome, levels = (names(b5_vars)))), # order by BFI traits, digits =3)
outcome
term
est
str_err
p
sig
extraversion
Intercept
3.919
0.027
0.000
***
extraversion
time
-0.023
0.024
0.351
extraversion
group
-0.009
0.038
0.812
extraversion
time*group
0.007
0.034
0.827
agreeableness
Intercept
4.078
0.029
0.000
***
agreeableness
time
0.007
0.024
0.777
agreeableness
group
-0.018
0.041
0.670
agreeableness
time*group
-0.035
0.034
0.300
conscientiousness
Intercept
4.414
0.027
0.000
***
conscientiousness
time
0.027
0.024
0.266
conscientiousness
group
0.005
0.038
0.889
conscientiousness
time*group
-0.018
0.034
0.601
neuroticism
Intercept
1.704
0.028
0.000
***
neuroticism
time
0.004
0.026
0.878
neuroticism
group
-0.032
0.039
0.413
neuroticism
time*group
0.032
0.037
0.381
openness
Intercept
4.140
0.031
0.000
***
openness
time
0.054
0.025
0.035
*
openness
group
-0.052
0.043
0.233
openness
time*group
0.001
0.036
0.971
sociability
Intercept
3.735
0.038
0.000
***
sociability
time
-0.085
0.036
0.020
*
sociability
group
-0.029
0.054
0.583
sociability
time*group
0.060
0.051
0.239
assertiveness
Intercept
3.832
0.037
0.000
***
assertiveness
time
0.001
0.035
0.984
assertiveness
group
0.001
0.052
0.981
assertiveness
time*group
0.002
0.049
0.967
energy
Intercept
4.189
0.034
0.000
***
energy
time
0.016
0.038
0.672
energy
group
0.003
0.048
0.953
energy
time*group
-0.047
0.053
0.384
compassion
Intercept
4.029
0.038
0.000
***
compassion
time
0.016
0.037
0.675
compassion
group
-0.019
0.053
0.721
compassion
time*group
-0.008
0.052
0.885
respectfulness
Intercept
4.454
0.032
0.000
***
respectfulness
time
-0.001
0.029
0.963
respectfulness
group
-0.031
0.045
0.492
respectfulness
time*group
-0.007
0.041
0.862
trust
Intercept
3.751
0.040
0.000
***
trust
time
0.013
0.036
0.728
trust
group
-0.002
0.056
0.965
trust
time*group
-0.099
0.051
0.053
organization
Intercept
4.426
0.032
0.000
***
organization
time
0.006
0.034
0.849
organization
group
0.001
0.045
0.982
organization
time*group
0.031
0.048
0.511
productiveness
Intercept
4.513
0.030
0.000
***
productiveness
time
0.045
0.030
0.137
productiveness
group
0.055
0.042
0.197
productiveness
time*group
-0.052
0.042
0.215
responsibility
Intercept
4.300
0.035
0.000
***
responsibility
time
0.035
0.033
0.288
responsibility
group
-0.031
0.049
0.523
responsibility
time*group
-0.027
0.046
0.562
anxiety
Intercept
1.876
0.035
0.000
***
anxiety
time
0.030
0.039
0.445
anxiety
group
-0.036
0.050
0.466
anxiety
time*group
0.004
0.055
0.947
depression
Intercept
1.499
0.030
0.000
***
depression
time
-0.003
0.031
0.911
depression
group
-0.022
0.042
0.597
depression
time*group
0.040
0.043
0.356
volatility
Intercept
1.736
0.035
0.000
***
volatility
time
-0.018
0.036
0.611
volatility
group
-0.041
0.049
0.409
volatility
time*group
0.066
0.050
0.188
curiosity
Intercept
4.129
0.038
0.000
***
curiosity
time
0.028
0.038
0.455
curiosity
group
-0.046
0.054
0.396
curiosity
time*group
0.002
0.053
0.965
aesthetic
Intercept
3.922
0.039
0.000
***
aesthetic
time
0.108
0.037
0.004
**
aesthetic
group
-0.082
0.056
0.142
aesthetic
time*group
-0.050
0.052
0.334
imagination
Intercept
4.369
0.036
0.000
***
imagination
time
0.024
0.036
0.506
imagination
group
-0.010
0.051
0.842
imagination
time*group
0.028
0.051
0.585
No significant group effects (higher trait level in self-improvement group at baseline) and also no significant differences in the changes over time in ideal-self trait levels (timeXgroup). No significant changes over time in ideal-self trait levels (time; independent of intervention group membership).
kable(df_manip_check_curr_fu_unlist %>%mutate(outcome =rep(sort(names(b5_vars)), each=4), term =c(rep(c("Intercept", "time", "group", "time*group"), 20))) %>%rename(p =`Pr(>|t|)`, str_err =`Std. Error`, est = Estimate) %>%select(outcome, term, est, str_err, p) %>%mutate(sig =ifelse(p < .05, ifelse(p < .01, ifelse(p < .001, "***", "**"), "*"), " ")) %>%arrange(factor(outcome, levels = (names(b5_vars)))), # order by BFI traits, digits =3)
outcome
term
est
str_err
p
sig
extraversion
Intercept
2.951
0.041
0.000
***
extraversion
time
0.032
0.025
0.217
extraversion
group
-0.050
0.058
0.389
extraversion
time*group
-0.017
0.036
0.625
agreeableness
Intercept
3.697
0.035
0.000
***
agreeableness
time
0.015
0.022
0.486
agreeableness
group
-0.011
0.050
0.822
agreeableness
time*group
-0.019
0.031
0.531
conscientiousness
Intercept
3.468
0.045
0.000
***
conscientiousness
time
0.072
0.028
0.009
**
conscientiousness
group
0.067
0.064
0.296
conscientiousness
time*group
-0.060
0.039
0.121
neuroticism
Intercept
3.068
0.049
0.000
***
neuroticism
time
-0.062
0.028
0.030
*
neuroticism
group
-0.015
0.069
0.829
neuroticism
time*group
0.017
0.040
0.674
openness
Intercept
3.792
0.039
0.000
***
openness
time
-0.001
0.022
0.969
openness
group
-0.038
0.054
0.484
openness
time*group
0.016
0.031
0.619
sociability
Intercept
2.641
0.057
0.000
***
sociability
time
0.046
0.036
0.202
sociability
group
-0.092
0.080
0.254
sociability
time*group
0.006
0.050
0.902
assertiveness
Intercept
2.984
0.051
0.000
***
assertiveness
time
0.039
0.036
0.281
assertiveness
group
-0.050
0.072
0.484
assertiveness
time*group
-0.023
0.050
0.648
energy
Intercept
3.228
0.048
0.000
***
energy
time
0.011
0.040
0.781
energy
group
-0.008
0.068
0.905
energy
time*group
-0.034
0.056
0.535
compassion
Intercept
3.814
0.044
0.000
***
compassion
time
0.040
0.037
0.277
compassion
group
0.000
0.062
1.000
compassion
time*group
-0.053
0.052
0.301
respectfulness
Intercept
4.067
0.041
0.000
***
respectfulness
time
0.025
0.029
0.394
respectfulness
group
-0.017
0.058
0.772
respectfulness
time*group
-0.011
0.041
0.791
trust
Intercept
3.211
0.048
0.000
***
trust
time
-0.018
0.035
0.603
trust
group
-0.019
0.068
0.780
trust
time*group
0.010
0.048
0.834
organization
Intercept
3.520
0.056
0.000
***
organization
time
0.077
0.037
0.038
*
organization
group
0.153
0.079
0.053
organization
time*group
-0.027
0.052
0.607
productiveness
Intercept
3.297
0.054
0.000
***
productiveness
time
0.077
0.037
0.039
*
productiveness
group
0.064
0.076
0.402
productiveness
time*group
-0.091
0.052
0.080
responsibility
Intercept
3.586
0.049
0.000
***
responsibility
time
0.064
0.040
0.113
responsibility
group
-0.018
0.068
0.797
responsibility
time*group
-0.060
0.056
0.289
anxiety
Intercept
3.396
0.053
0.000
***
anxiety
time
-0.035
0.038
0.355
anxiety
group
0.047
0.075
0.534
anxiety
time*group
-0.036
0.053
0.498
depression
Intercept
2.922
0.058
0.000
***
depression
time
-0.076
0.039
0.052
depression
group
-0.013
0.081
0.876
depression
time*group
0.004
0.054
0.941
volatility
Intercept
2.886
0.056
0.000
***
volatility
time
-0.070
0.038
0.069
volatility
group
-0.078
0.078
0.322
volatility
time*group
0.072
0.054
0.181
curiosity
Intercept
3.865
0.046
0.000
***
curiosity
time
0.029
0.033
0.374
curiosity
group
-0.015
0.064
0.811
curiosity
time*group
-0.048
0.046
0.300
aesthetic
Intercept
3.724
0.051
0.000
***
aesthetic
time
-0.025
0.035
0.486
aesthetic
group
-0.060
0.072
0.401
aesthetic
time*group
0.031
0.050
0.534
imagination
Intercept
3.786
0.047
0.000
***
imagination
time
-0.007
0.034
0.834
imagination
group
-0.037
0.065
0.575
imagination
time*group
0.065
0.048
0.177
No further changes from T2 to T3 that are significant at p < .001 (independent of intervention group membership). Suggestive increase in conscientiousness.